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APLICAQOES DOMESTICAS 




Algumas icteias que vao ajudar seu micro 

versatil nos afazeres do lar 






• RAMCARD • SOFTCARD • VIDEOTERM • SOFTV1DEO SW • PROGRAMMER • PROTOCARD • INTF. DISKS 
INFT. PRINT • SATURN 128K RAM • SATURN 64 K RAM. • SATURN 32K RAM. • RANA QUARTETO • MICROMODEM II 
• MICROBUFFER II • MICROCONVERTER II ■ MICRO VOZ II ■ ULTRATERM B ALF 8088 CARD 
■ A800 DISK CONT ■ MULTIFUNCTION CARD 

MICROCRAFT MCROCOMPUTADORB LTD*. 

ADMINISTRATED E VENOMS: AV. BRIG. FARIA LIMA. 1.664 - 3? ANCAR -0 316- CEP 01452 
FONES (Oil) 212-6286 E 815-6723 - SAO PAULO - SP - BRASiL 



^ O Microcomputador AS-1000 

e uma otima escolha para quem esta 

iniciando na ciencia da computa^ao. Seus 
recursos de programacao e sua concepcao 
modular, porem, permitem gue ele 
o acompanhe ate as aplica^oes mais 
sofisticadas. 

O AS-1000 J a nasce com uma biblioteca de 
milhares de programas para jogos, 
administracao domestica, aplicacoes 
comerciais e profisslonais. 

O AS-1000 e fabricado com a qualidade 
ENGEBRAS e garantldo por um ana 

Entre na era da informatica com a escolha 
certa. AS-1000, o seu micro pessoal. 

Escreva-nos. sua correspondence nao flcara sem resposta. 

B ENGEBRAS 

ELETRONICA E INFORMATICA LTDA. 

Rua do Russel, 4S0 - 3 



CARACTERISTICAS TECNICAS: 

• 16 K bytes de memorla Inlclals 

• Expansao Interna para 32 e 
48 K bytes 

• 8 K bytes de memorla EPROM 

• Mlcroprocessador Z- 80 A 

• Teclado de membrana com 
a^ao mecanlca posit I va 

• 40 tecias e 1S4 fun^oes 

• Basic e llnguagem de mAquina 

• Video normal ou reverse 

• Saida para qualquer I m pressor a 

• Manfpula ate quatro cassetes 
com gera^Ao de arqutvo 

• Modem 

• Joystick 

• Speed File 

• Fonte de alimenta^ao 
embutlda (110/220 volts) 

• Nivel de leltura de grava^ao 
automatlco 



cep 22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 






Contas a Pagar para Cooperativas f/i 
Contas a Receber 

Contas a Receber com — 
Controlede Contratos H1ID 

Contas a Receber I ndustrial I w 
com Emissao de Duplicatas | 

Contas a Receber para Dis- jj 
tribuidores de Medicamentos I j 

Contas a Receber para Coo- /! 
perativas | : 

Contas a Receber - Radiologia N 

Controle de Condominio e 
Alugueis i 

Controle de Consorcios 
Controle de Contribumtes 
Controle de Estoque 
Controle de Estoque 
Comercial 

Controle de Estoque 
para Comercio de 
Pneus 

^ Controle de 



voividosegarantidos peias.seauintes 
^ software houses PRO-LOGOS 

fcfe- GTS.APL. DATA 100. 

CONSIST. PIONEIRA. SOFT 
p COMPUTEL DATAMEC. 

PLACOM.IMS 

^ COMPACT IMPLANTA 

DATA PLAN. INFEL 
INFORCOMP, NM. 
Sfluxo. APRODATA MPN 
SIMICRON. DATAMED SUPLIUS, 
SMAR-APD, GDA. DATA- ELO.COPPE. 
BACKUP SICOM. MIS. MINI-MICRO 
e JOTO 



Para maiores informagoes sobre o 
Cobra 305. ligue para 
Rode Janeiro- Tel (021)265-7552 
S.Paulo-Tel (011)826-8555 
Brasilia -Tel. (061)273-1060 
B. Horizonte - Tel (031) 225- 4955 
Curitiba -Tel (041)234-0295 
Flonanopolis - Tel (048) 222-0588 
Porto Alegre -Tel. (0512) 32-7 1 1 1 
Salvador -Tel (071)241-5355 
Recife -Tel (081)222-0311 
Fortaleza - Tel (085)224-3255 



Administragao e Controle de Repre- 
sentagao de Terceiros 
Administragao de Alugueis 
Administragao de Condominios 
Administragao de Construtoras 

Administragao de Loteamentos e 
Imbveis 

Administragao de Transportadoras 
Administragao Hospitalar 
Apuragao de Custo por Curva de Ser- 
vigos UNIMED 

Armazens Gerais 
Arrecadagao T ributaria 
Ativo Fixo 

Ativo Fixo com Correcao Anual em 
Cruzeiros, Dolares e ORTNs 

Ativo Fixo com Corregao Mensal, T ri- 
mestral e Semestral em ORTNs 

Business Calc 

CadastramentoeCustosde Equipa- 
mentos 

Cadastramento 

Generico 

^B^B JjL Cartaode 

Credito 

A 



Cobranga ^Bk 1 ^ 

Consorcio 1 

Conta-Corrente e Contabilidade % 
Integrada \ 

Contabilidade ^ 

Contabilidade com Fechamento Au- 
tomatico em Cruzeiros e Dolares 

Contabilidade com Multivolume / 

Contabilidade com Orgamento / 

Contabilidade com Resultados / 
Operacionais / 

Contabilidade Comercial f 

Contabilidade Especial V 

Contabilidade Geral ^ 

Contabilidade Geral para Pequenas 
Empresas 

Contabilidade Gerencial 
Contabilidade para Bureau 
Contabilidade para Cooperativas 
Contabilidade para Entidades de Pre- 
videncia Privada 
Contabilidade para Escritorios 

Contabilidade para ^ 

UsinadeAgucar 

Contabilidade 

Publica 

Contas a Pagar Wpfvv. 

Contas a Pagar para ^ 

Construtoras 



J j Controlede Estoque- Distri- 
/ buidores de Medicamentos 

Controle de Estoque-Revende 
dores 

Controle de Estoque-Varep 

Controle de Fornecimento de 
Cana por Peso 

Controle de Produtividade de Cana 
Controle de Materiais 
Controle de Pedidos 

Controle de * 

Custo de V 

Obras <■ 3 .,«• 






Cobra 305. 0 micro prof issional 



quertrabalharna 



anterior nas seguintes 
funpoes: A 





A geracao definitive 6 sempre a proxima. 




AV. PACAEMBU. 788 
CEP 01155 - TEL: 67.5900 



Voc£ s6 descobre o quanto precisa de um Micro-Com 
putador JR da Sysdata depots que o conhece de perto. 

Voc6 vai ter certeza de que fez um 6timo negbcio ao 
adquirl-lo assim que o cotocar na sua empresa ou na sua 
casa. 

O JR da Sysdata 6 rdpido. 6 versdtil, 6 compacto. 

APLICApOES: 

Contabilidade, controle de contas a pagar. controle de 
contas a receber, folha de pagamento, controle de esto- 
que. controle de clientes, relatbrio de clientes, mala direta, 
cdlculos de orpamentos f inanceiros.controle de processos 
industrials, cdlculos de engenharia. cdlculos de estatfsti- 
cas, funpbes matemdticas. funpbes Idgicas em cadeia de 
caracteres (STRINGS), grdficos, jogos animados. progra- 
mas educacionais. 

O JR PERMITE AINDA: 

0 acesso a grandes sistemas de computapao, a comuni- 
capdo entre os departamentos de Empresa. efetuar pro- 
gramas espedficos para cada Empresa. 

E.comose naobastasse, ele 6 o Micro-Computador de 
me nor prepo do mercado. 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser tdo econbmico. Mas 6. 

Afinal, ele d o mats completo Micro-Computador de sua 
gerapdo. 

Inclusive no prepo. 

Vocd pode testar estas e outras qualidades do JR em 
qualquer dos nossos revended ores 
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REVENOEDORES SAO PAULO /Capital Ad Data 864 8200 ADP System 227 6100 Bocfcw 881 7996 Cavtocj 36 €961, Compumsrketing 212 9004. Compute 862 8533; Com 
poterund 231 3277; Foto Uo 35.7131; FotOuca 853 0448 Guwfes 289 9051 Horst 203 5607 Interlace 862 5603 Lome 210 5809; Micron* 881 0022; M*protec 289 4941; Nova Gera 
CAo 814 3663 O P A 35 8685; PUndata 275 0181; PtsntH 543 9663: Sacco 814 0598. Stnatec 222 1511 Satenac 282 6609. S O S. 66 7666. Runner * 469 0887 Campinas 
Computer House 862 5866. Computxjue 32 6322. Microtok 32 4445 Rio Oaro Coml M«:ro Cosmos 34 5801 Ribairao Prato Compusys 635 1196 Ararat Copac 41 3779. 
Taubat4 Ensicon 33 2252 Mogi Gua^u Guacumaq 261 .0236. Braganca Pauiista nfordata 543 5198 Bauru; Manila Sip»o 33.4109. Cetanduva Tetedatto 22 81 19. RIO 
OE JANEIRO Capital Clap 228 0734 CompoUjue 267 1093 G D M Informitica 284 8744 JR de G6es 246 4180 Kftstan 391 3166; Supnmento 274 8845 Petrdpolis Foto Oti 
ca 42 1391 MINAS GERAIS Bolo Horizonte Compucity 226 6336 Computer 225 2617 Kem.tron 225 0644. Mmas D*g<t*J 337 7946. Poco# de CakUs • Computiqu# 721 5810. 
RIO GRANOE DO SUL 'Porto Alagra Advancing 26 1194. Aphtec 24 0466; Oigrtai 24 1411. Micros* 22 9782. Palotas SistamatAa 22 3810 Novo Hamburgo Micromoga 
93 4721. PARANA /Curitiba Computique 243 1731. Micro System 232 3533. Morgen 232 0603; Ponta Gross* Grupo Data Memory 24 6191 Londrina Shop Compute* 
23 9674 GOIAS Goiama Casa do M>crocomputador 223 1 166; Grupom 225 8226; SANTA CATARINA Floriandpolis Castro 22 6933. Inlotec 23 4777 BRASILIA Distrito 
Federal Compusbov. 273.2128 Dig.tec 225 4534 MATO GROSSO DO SUL/Campo Grande ORL 382 6487 Video 321 4220 CEARA /Fortaleza Siscompy 244 4691 
P AR AlBA /’ JoAo Pessoa Medusa 221 6743 PERNAMBUCO /RacHe Etog»ca241 1388 
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-| ^ EDITOR DE TEXTOS 

X At — Deixe as palavras 
fluirem livremente em suas 
cartas, artigos e relatorios. O 
trabalho de composipao sera 
feito por este utilitario, 
escrito por Ivan Camilo da 
Cruz especialmente para voce 
e seu micro TRS-80. 



NEWDOS QUE 
XXrNAO ESTA NOS 
MANUAIS — A maioria dos 
usuarios da linha I RS-80 
usa. mas poucos o conhecem 
a fundo. Neste artigo, Renato 
Degiovani fala sobre a 
estrutura do NEWDOS/80, 
explicando ainda como 
manipular seus registros. 
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MICRO BUG — O 

inicio de uma 



caminhada que MICRO 
SISTEMAS se propoe a 
seguir com quern possui um 
micro Sinclair: vamos 
construir. passo a passo, um 
sistema utilitario em 
linguagem de maquina, 
tirando todas as duvidas 
(antigas e novas) e discutindo 
as formas de programapao 
utilizadas. 



CAA GERACAO RADIO 
SHACK — Apesar de 
certas ineompaiibilidades, a 
familia TRS-80 continua 
unida, e aqui trapamos seu 
perfil nacional: os modelos. 
seus contrastes. recursos. 
software, o que pensa o 
usuario. tendencias do 
mercado e demais 
caracteristicas. 
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uro que e verdade. Conhcfo uma 
pessoa que, quanto maior a infla- 
{ do brasileira niais acredita no 
Brasil como um eldorado. Em- 
bora alena para a possibilidadc 
dc tratar-sc a penas do mais uni nacio'ia- 
lista cm estado dc del trio profunda, t le- 
va admitir que acho ncle uma ponta dc 
razdo. R ea linen te nutria economic es le- 
vel, as chances dc se ganhar dinheiro 
com novas empreendimentos, salvo em 
raros setores, e consideravelmente me- 
nor pela propria acomodaqao do contex- 
to econdmico. Ao [Jasso que, num am- 
biente de- 240% de in flat; do anual. mui- 
tas chances sao criadas. 

De fata nossa crisc, da qual o indice 
inflaciondrio c causa- produto, gera mui- 
tas oportunidades aos empresarios so- 
brevivcntes. Vejam que falo nos elemen- 
ts economicamente ativos - aqueles 
que investem e ndo do segment liga- 
do a especulagao. atividade que, em cri- 
se, prospera paralelamente as oportuni- 
dades e e, ndo raro, confundida com 
clas. 

No caso particular da industria, dc 
i n forma tica, a dupla crise-oportunidade 
ndo estd so. Estc segment tern vivido, 
paralelo aos problemas, o beneficio da 



reserve de mercado para certas areas, 
especialmente a de fabricaqao de equipa- 
mentos de mcnor porte, entregue ex- 
clusivamente as empresas nacionais. 

Com isto, o que vimos no ano passa- 
do - e a tendencia parece persistir em 
84 - e o crescente desenvolvimento e 
capitalizafdo destas empresas. Algumas 
delas, que antes da explosdo deste mer- 
cado eram betn pequenas ou nem mes- 
mo pensavam em existir, estdo hoje ocu- 
pando honrosos primeiros lugares no 
ranking nacional. 

A industria de perifcricos tambem 
demonstra claramente estar com pe fir- 
me no caminho de uma otimizafdo de 
sua performance economica, alcanfando 
altos indices dc nacionalizafdo em seus 
produtos. 

Recente estudo da A bicomp, entida- 
de dos fabricates da area, mostra ainda 
que a industria nacional de informatica 
gerou em 83 perto de 5000 novos em- 
it r egos, absorvendo parcela consideravel 
de mdo-de-obra espccializada, principal- 
mente nas etapas de desenvolvimento 
e pesquisa. 

Este context que levou ao desenvol- 
vimento da area mesmo atraves da crise 
ndo se limita, contudo, na reserve. Den- 



tre os outros fa tores do cenario, estd 
uma tendencia a centralizafdo das deci- 
soes na esfera federal atraves da SEI, or- 
gdo ligado ao Conselho de Seguranqa 
Nacional e que vem acumulando fun- 
foes " normativas " como determiner 
quern podera produzir o que e quando. 

Para os que se opoem a esta ingeren- 
cia governamental. e bom lembrar que 
este niicleo centralizador. se por vezes 
exacerbou uma mera posifdo de contro- 
lador do mercado. tambem serviu de im- 
portante garantia para que a situafao 
ndo se alterasse face as pressoes sofridas 
no sentido de abrir a reserva. 

E agora que a discussao sobre uma 
politico nacional de informatica vai che- 
gar com toda for? a a Brasilia, sendo 
apreciadas pelo Legislativo algumas pro- 
postas de projetos de lei. certamente 
vamos chegar a um consenso: o soldo e 
positivo. 
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A avanpada tecnologia do raio laser para 
converter os dados de saida de computador 
em imagens prontas para uso. 

As Processadoras/lmpressoras de Microimagens Kodak KOMSTAR sao verdadeiros 
perifcricos de computador, que oferecem notaveis melhoramentos nas operagoes de 
saida de dados, ao mesmo tempo em que reduzem os custos operacionais. 




Permitem ainda a obtengao de titulos em vdrios tamanhos, microfichas com indice 
em diversos formatos. Tudo com rapidez e perfeigao, sempre. Mas al6m dessas, existem 
outras vantagens que voc£ precisa conhecer. 

Ndo espere mais tempo. Envie hoje mesmo o cupom abaixo, solicitando o Guia 
Kodak para as Processadoras/lmpressoras de Saida de Dados de Computador. 
Vocd verd, em detalhes, tudo o que as Processadoras/lmpressoras Kodak KOMSTAR 
podem oferecer. 

Ao receber seu Guia, voc6 estard abrindo as porfas de sua empresa para a mais 
avangada tecnologia existente no mundo da infomndtica. Uma tecnologia que tern a 
garantia de uma marca que voed conhece e confia: Kodak. 



CUPOM DE RESERVA GRATIS 

Sim. quero receber giatuitamente o Guia Kodak para as Processadoras/lmpressoras de Saida de 
Dados de Computador 



Cargo . 



Empresa. 



Enderepo. 



EP Q DADE ESTADO 

(A Kodak atenderd os pedidos por ordem de chegada e r>a medida dos seus estoques). 



Departamento de Sislemas Microgrdficos 

KODAK BRASILEIRA COMERCIO E INDUSTRIA LTDA. 

Rua George Eastman. 213 • 05690 • Tel.: (011) 542-0111 • Sbo Paulo • SP 






O sorteado deste mbs, qua receberb uma 
assinaturade um anode MICRO SISTEMAS, 
6 Rogbrio Saran, de Sao Paulo. 
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Achei muito interessante e oportuno o 
artigo de Joao H. V. Mattos, publicado em 
MS n9 25. pbgina 30, abordando os siste- 
mas operacionais existentes para os micros 
compatfveis com TRS-80 I e III. 

Gostaria, no entanto, de fazer um repa- 
ro sobre o que foi dito em relagbo ao 
NEWDOS 80 2.0: este DOS nffo deixou de 
utilizar o conceito de granulo, mas passou a 
adotar o conceito de lump (bloco, pedago) 
na subdivisao do disquete, levada em conta 
pelo diretbrio. Assim, a alocagao de espago 
que era feita atraves de granulos e trilhas 
passou a ser feita por granulos e lumps. No 
NEWDOS 80 2.0 h£ cinco setores por granu- 
lo, e dois a oito granulos por lump. O ma- 
nual, que realmente nao 6 muito claro, ex- 
plica isso nas pbginas 2-37 e 10-7. 

Para localizar onde comega um lump, de- 
vemos levar em conta os par£metros SPT (sec- 
tors per track) e GPL (granules per lump) 
do PDRIVE, e lembrar que hi sempre cinco 
setores por granulo. Por exemplo: no DIG- 
DOS (cbpia do NEWDOS 80 2.0), temos: 
SPT • 18, GPL - 2 e DDSL = 36, isto 6, 
o diretbrio comega no lump 36, que equi- 
vale i trilha 20: 

36 L x 2 G/L x 5 S/G 



18S/T 



20 T 



Josb Ribeiro Pena Neto 
Belo Horizonte-MG 



Mandamos a sua observagao para Joao 
Henrique Volpini Mattos, autor do artigo 
"DOS: um para cada usubrio", e este nos 
respond eu: 

"O Sr. Josb Ribeiro Pena Neto est£ absolu- 
tamente certo. Segundo as prdprias pala- 
vras do manual do NEWDOS/80, a utiliza- 
gao do conceito de lumps permite que um 
grbnulo se inicie em uma trilha e termine em 
outra (...), maximizando o numero de seto- 
res por trilha enquanto mantbm o diretd 
rio com o mesmo formato". 

Joao Henrique Volpini Mattos 
Niterdi-RJ 
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LOJAS DE MICROS 
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Vimos por meio desta lembrar £ equipe 
que elaborou a matbria "Lojas de Microcom- 
putadores". -publicada no nP 27 de MICRO 
SISTEMAS (dez./83), que o CESPRO - 
Cursos de E special izagao Profissional Ltda, 6 
tambbm revendedor de microcomputadores. 

Provavelmente esta equipe nao le a 
prdpria revista que faz, ou entao n£o demons- 
tra nenhuma consideragao por um cliente 
que j £ anunciou mais de dez vezes neste 
conceituado vefculo (...). 

Engs. Lourival J. P. Moreira e Jesse W. Costa 
CESPRO-RJ 



encontra na matbria "Lojas de Microcompu- 
tadores” (...). 

R. R. Soares 

Diretor Comercial da Servimec S.A. 



A equipe de MS apurou, num trabalho 
inbdito e sbrio, cerca de duzentos enderegos 
de lojas, aos quais for am enviados quest ion£- 
rios. A fonte inicial deste levantamento foi, 
obviamente, atravbs das prdprias pdginas da 
revista, sendo que nossos anunciantes foram 
os primeiros a receber nos so questiondrio. 
Temos arquivado todas as lojas £s quais 
remetemos o questiondrio-base para nossa 
matdria "Lojas de microcomputadores". 
Infelizmente, nem todas as lojas responde- 
ram d nossa pesquisa. No caso do CESPRO, 
enviamos o questiondrio no mds de setem- 
bro, conforms consta em nosso arquivo, e 
nao obtivemos resposta. 

Como todos os dados constantes da 
tabela de lojas sao transcrigoes das informa- 
goes prestadas pelas lojas atravds do questio- 
ndrio, nao podemos em nenhuma hip6tese 
nos responsabilizar pela ausdnciade informa- 
goes sobre esta ou aquela loja que nao 
respondeu d nossa con suit a. 

A equipe de MS gostaria de informar d 
Servimec que, por ter respond ido ao nosso 
questiondrio, informapoes sobre esta empre- 
sa foram publicadas em MS n? 27, pois por 
motivo de espapo fomos obrigados a des- 
membrar a matdria em duas partes (MS nPs 
27 e 28). 
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CRIE UM ESPAQO EXTRA 






Sou leitor assfduo de MICRO SISTE- 
MAS porque ela b a melhor revista de mi- 
crocomputador atualmente. Mas deixo aqui 
minha reclamapdo: programas apresentados 
na revista tern muitos erros. N5o sei se sSo 
erros de impressbo ou dos auto res. Por 
exemplo: em MS n? 25, pbg. 115 (matdria 
"Crie um espapo extra em seu disco"), li- 
nha 180, mais precisamente no POKE BUF 
+ U, apresenta um erro de quantidade ile- 
gal. Espero uma solugbo! 

Carlos Alberto Selbach 
SSo Paulo-SP 



Verificando 0 nP 28 dessa revista, 
constatamos que o nosso nome nao se 



Embora tenhamos testado e verificado o 
programa, nao encontramos nenhum erro, 
mas, como d nossa prdtica habitual, entra- 
mos em contato com o autor do artigo. 
Nelson Filho, e este nos mandou a seguinte 
corresponddncia: 

"Em atenpdo ao leitor Carlos Alberto, devo 
informar que revi a listagem publicada e ne- 
nhum erro foi encontrado. A listagem pu- 
blicada d cdpia fiel do programa que tenho 
em maos, e que foi novamente rodado sem 
apresentar nenhum problema. 

Vamos, entretanto, analisar o erro rela- 
tado, para tentar ajudd-lo: vocd afirma que 
na linha 180, exatamente na declaragao 
POKE BUF... encontrou erro de quantidade 
ilegal. O manual de BASIC afirma que, nu- 
ma declarapao POKE X,Y, o valor de X 
deve ser maior que -65535 e menor que 
65535, e Y deve ser maior que 0 e menor 
que 255. Caso isso nao acontepa, e somente 
assim, aparecerd a mensagem de quantidade 
ilegal. 

Observando a listagem do programa pu- 
blicado, por analogia podemos constatar que 
a expressao BUF + I tern que ser maior que 
-65535 e menor que 65535, e J maior que 
0 e menor que 255 para que nao ocorra 
erro. Observe tambdm que o valor de BUF 
e fixo e d declarado na linha 420 
(BUF = 4096). O valor de I estd na mesma 



linha 180 (FOR 1=1 TO 33), e ird variar de 
1 a 33, logo, o valor de BUF + I vai variar de 
4097 a 4129, o que estd correto. 

No caso do J, seu valor d declarado na 
linha 460 atravds de uma declarapao do tipo 
DATA. Assim, na linha 180, para rodar I 
sard lido um J correspondente. Vocd mesmo 
pode verificar que na linha 460 nao existe 
nenhum valor de J que seja menor que 0 
ou maior que 255. Portanto, nSo hd erro, 
nem pode ter havido o que vocd mencio- 
nou, a nao ser que seja erro de digitagao. Se, 
por exemplo, vocd omitiu alguma vfrgula na 
linha 460, poderd acontecer que algum va- 
lor fique maior que 255, pois se n£o digitar- 
mos a vfrgula existente entre 166 e 45 (pri- 
meira vfrgula), o primeiro valor de J serd 
igual a 16643, que d maior que 255. 

Reveja com atenpao o programa; vocd 
certamente ird encontrar algum erro de di- 
gitapao." 




Fiquei muito satisfeito ao ver meu pro- 
grama "Riscos, rabiscos e criatividade" pu- 
blicado em MS n? 27. E d justamente para 
alguns esclarecimentos o motivo desta: no 
programa publicado estd escrito que, para 
salvar somente o programa, deve-se digitar 
RUN 340. NSo me lembro de ter escrito 
isso na carta que acompanhou o programa, 
mas parece-me que isso ndo d muito prdti- 
co, pois na hora de recuperarmos o progra- 
ma, este parard na linha 310 UNPLOT Y, X, 
jd que as varidveis nbo estarSo determinadas 
neste momento, pois foram apagadas quan- 
do se digitou RUN 340. Minha iddia era a de 
que, para guardarmos o programa, com ou 
sem desenho na tela, primeiro deverfamos 
executar o programa (RUN) e depois pres- 
sionar RUBOUT (SHIFT+0), pois entdo as 
varidveis seriam determinadas. 

Com relagSo d dica "Arquive novfdeo", 
publicada na Sepdo Dicas de MS n9 23, que 
sugere arquivarmos algum desenho novfdeo 
com a rotina em LM apresentada, tenho a 
impressdo de que ndo b muito util, pois o 
Loop de transference (LDIR) manda o ar- 
quivo de vfdeo (fonte) para a membria no 
enderego a partir de 31000 (destino) e isso 
ndo funciona na hora de guardarmos algum 
programa em fita, pois o desenho arquivado 
ndo b transferido para a fita. 

Carlos Takayuki Honda 
Mogi das Cruzes-SP 

Houve realmente um erro da revista com 
relagio a seu programa; vocd estd correto 
quanto ao RUN 340. Pedimos nossas des- 
culpas. Com relagio d utilizagao da dica 
"Arquive no vfdeo", esta abre um novo ho- 
rizonte na programagio dos micros. Para 
utilizd-la, deve-se proceder da seguinte for- 
ma: ligue o micro e digite POKE 1 6389, 121. 
Logo ap6s, dd o comando NEW para que se- 
jam reservados os bytes do arquivo. A se- 
guir, digite uma linha REM com 27 carac- 
teres e introduza os cbdigos da dica "Arqui- 
ve no vfdeo" (MS n? 23). Digite o programa 
"Desenhe no vfdeo" (MS n? 27, pdg. 40) e 
proceda d sua utilizapdo normal. 

Vamos supor que vocd tenha escrito um 
programa interessante e queira fazer uma 
abertura bem bonita. Fapa um desenho no 
vfdeo com o programa "Riscos, Rabiscos e 
criatividade" e use a dica "Arquive no vf- 
deo"; arquive o seu desenho com RAND 
USR 16514. Depois, elimine o programa 
"Desenhe no vfdeo" e digite o seu, manten- 
do a linha REM com os cbdigos de mdqui- 
na. Para gravar em fita, use a sequdncia: 



2 RAND USR 16526 

3 SAVE "nome do programa" 

4 : 

E depois digite o comando GOTO 2. 

Isso evita perda de tempo na gravapao 
em fita, pois todos os programas sao arqui- 
vados no cassete com o vfdeo, quer tenham 
algo impresso ou ndo. Assim, quando imagi- 
namos a apresentagao de um programa, po- 
demos tambdm usar linhas PRINT em vez de 
ter todo este procedimento, mas se usar- 
mos linhas PRINT nao poderemos ter as fa- 
cilidades do programa "Desenhe no vfdeo" e 
terfamos que gravar a apresentapao duas ve- 
zes (uma no programa e outra no vfdeo, ou 
um vfdeo em branco). Como a rotina "Ar- 
quive no vfdeo" deixa esse arquivo fora do 
SAVE, com este procedimento economiza- 
mos tempo de gravapao. 



COLABORANDO COM MS 



Gostaria de ser colaborador de MICRO 
SISTEMAS. Como devo fazer? 

Mais duas coisas: a revista estd uma mara- 
vilha, e espero que continue a publicar todos 
os artigos de Renato Degiovani, pois os 
jogos em Assembler sao maravilhosos. Agora 
a segunda coisa: espero que esta carta seja 
publicada I 
Eduardo Caribd 
Rio de Janeiro — RJ 

Af estd a sua carta publicada, Eduardo. E 
com relapao a colaborar conosco, 6 facflimo: 
mande sua colaboragao datilografada, com 
todas as explicapoes e exemplos de aplicagao 
bem detalhadas para que nao tenhamos 
nenhuma dificuldade para entender e tastar 
(no caso de ser programa). Se tiver listagem, 
pedimos que seja datilografada (a experibn- 
cia nos mostrou que 6 a forma maisfbcil de 
evitar transtornos), e se tiver desenhos, 
fluxogramas ou quaisquer figures, solicita- 
mos o miximo de detalhamento para que 
nossa equipe de arte possa identified los 
perfeitamente. Nao se esquepa de mandar 
tambdm um breve currfculo (do tipo que sai 
sempre na revista) e de dizer para qual 
equipamento foi desenvolvido. Junta tudo e 
mande em duas vies para a Redagao - MS: 
Rua Visconde Silva, 25, Botafogo, CEP 
22281, Rio de Janeiro - RJ. Assim que 
recebermos seu material, nossa assessoria o 
analisard, e logo que tivermos um posicio- 
namento entraremos em contato com voce. 
Por f im, a equipe de MS agredece os elogios. 
Atd breve. 



MS AGRADECE 



(...) Queremos parabenizd-los pela exce- 
lente qualidade da revista: nao cansamos de 
divulgd-la entre nossos alunos como um dos 
mais perfeitos subsfdios para aqueles que se 
preparam em Informdtica. 

Roberto Villani 

Villarosa Empreendimentos Culturais 

Acompanhamos esta revista desde o seu 
primeiro numero, e sentimos que sua 
qualidade grdfica e editorial vem se aprimo- 
rando e melhorando a cada numero editado. 

Gostarfamos, portanto.de parabenizd-los 
e tambdm de agradecer o total apoio que 
esta revista vem prestando £ nossa loja 
(Microdata) e a todas as outras lojas em 
todo o territbrio nacional. 

Narciso de Campos Junior 
Gerente de Marketing da Microdata 



Sou leitor assfduo de MICRO SISTE- 
MAS e sinto orgulho disso. As matdrias sao 
sensacionais (sem sensacionalismo, o que d 
mais Imoportantel ) e tratam com a maior e 
mais possfvel clareza de todos os assuntos 
referentes £ drea a que ela se destina. 

Outra observagao d quanto a um curso 
que esta revista anuncia: o CEDM — Curso 
de Eletronica Digital e Microprocessadores, 
de Londrina. £ que sou aluno deste curso hd 
mais de um ano e digo: d um curso de pri- 
meira qualidade. 

Luiz Carlos P. de Souza 
Rio de Janeiro — RJ 

Quero agradecer pela atenpao com que a 
revista me forneceu as fbrmulas do progra- 
ma Afinidades, bem como agradecer ao Sr. 
Bruno Barrasch 
Robinson S. Pereira 
Rio de Janeiro — RJ 



SUGEST0ES 



Embora seja diffcil fazer sugestoes para 
a melhor revista brasileira no ramo, tenho al- 
gumas: 

— Sugiro transformar a revista em um ma- 
nual standard para consultas, de forma a tor- 
nar-se um soft para todos os computadores 
no Brasil; 

— Separem os assuntos: propaganda deve ser 
separada dos textos; 

— Os Indices devem ser muito mais explica- 
tivos: em ordem alfabdtica dos assuntos e 
dos autores, em separado, em todas as edi- 
poes; e tambbm um fndice anual, em ordem 
alfabbtica, dos assuntos e dos autores; 

— Fazer fndice dos anunciantes: alfabbtico 
por assunto e alfabbtico por anunciante (fir- 
mas). tanto mensal como anualmente; 

— As revistas devem ser encadernadas de ma- 
neira tal que uma pessoa interessada em tex- 
tos possa mandar encadernar no fim do ano 
sb com os textos e com o fndice geral 
anual. E as propagandas tambbm poderiam 
ser encadernadas separadamente com fndice 
anual; 

— A numeragao das p£ginas. tanto das pro- 
pagandas como dos textos, deveria ser con- 
tfnua durante o ano todo. 

Boris Cerne 
Joao Pessoa -PB 

Tenho a seguinte sugestao: fapam uma 
sepao, mesmo que pequena, dedicada £s cal- 
culadoras. e nela incluam nao so programas. 
mas tambbm comparapoes e descripoes de 
diversas calculadoras. 

Rogbrio Saran 
Sao Paulo — SP 

Tenho duas sugestoes: que se fapa uma 
parte da revista dedicada somente a TKs 
e compatfveis, e outra somente para calcula- 
doras. 

Wilson Prado de Souza 
Nilbpolis-RJ 

Gostaria que fosse feita uma matbria so- 
bre os enderepos do Sistema Operacional do 
TK. 

Leonardo O. Metran 
Goiania — GO 



Envie suas sugestoes para MICRO 
SISTEMAS. Elas serao anotadas em nossa 
pauta e procuraremos, na medida 
do possfvel, viabiliz£-ias. 



ICRO PROCESS 

COMPUTADORES LTDA. 



CENTRO DE MICROS 

• AVALIACAO DE CARGA 

• PLANEJAMENTO 

• DIMENSIONAMENTO 

• IMPLANTACAO DE 
EQUIPAMENTOS 

• PROGRAMAS 

• TREINAMENTO 

Implantapao racionalizada 
de micro-centros para 

• Comercio 

• Industrie 

• Profis. Liberals 
EQUIPAMENTOS 

• Microdigital 

• Prologica 

• Unitron. CCE. etc.. 

SOFTWARE 

• Programas especiais 
personaliz. de softer 

• Pacotes p/ advogados 
Despachamos Via Varig 

AMPLO FINANCIAMENTO 

TEL.; 64-0468 
Alameda Lorena, n° 1310 
CEP 01424 - SSo Paulo 
•-ESTACIONAMENTO PARA CLIENTES* 



voce e seu 
micro 
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Um relacionamento assim 
merece um programa exclusivo 

• A Informatic Service desenvolve 
programas conforme suas neces- 
sidades. 

• Presta-lhe total assistencia atraves 
de uma Assessoria de Sistemas 
exclusiva. 

• Promove a relapao 
Homem-Software-Maquina 
de forma perfeita 

Consulte-nos ainda hoje. 

IN FORMA TIC SER VICE DO 
BRASIL 

Av. 1 3 de Maio, 47 - grupo 2707 
Fone: (021 ) 262-8769- RJ 



repro 





Para quern vive as vo/tas com cartas, re la tori os ou artigos para escrever 
e tern um micro da I inha TRS-80, este editor de textos vira bem a calhar 



Editor de textos 

Ivan Cam Ho da Cruz 



E ste artigo apresenta um mini- 
editor de textos que roda em 
computadores compati'veis 
com o TRS-80 modelos I e III. 
Ele e um editor full screen, ou seja, o 
cursor se move por toda a tela modifi- 
cando o texto diretamente — isso facili- 
ta muito a tarefa de desenvolvimento e 
modifica$ao do texto. Alem disso, o 
prdprio editor imprime o texto em im- 
pressora, formatando-o de acordo com 
as especifica 96 es do usudrio, o que o 
toma extremamente util na edi^ao de 
cartas, relatdrios, memorandos etc. 

O editor roda em micros com 48 Kb 
de memdria e sistema operacional NEW- 
DOS. Para transformar o programa para 
outro sistema ou para uma configura^ao 
menor de memdria. fa^a as modifica^des 
sugeridas no final do artigo. 

VAMOS A ELE 

Apds digitar, rode o programa. Logo 
depois de imprimir o cabe<;alho, o pro- 
grama apaga a tela, coloca o cursor no 
canto superior esquerdo e os niimeros 
1 -1 na penultima linha. Os dois nu- 
meros indicam, respectivamente, a linha 
e a coluna da tela onde estd o cursor. 

Como ja foi dito anteriormente. o 
cursor pode mover-se pela tela. Experi- 
mente move-lo usando as teclas com se- 
tas de seu teclado e veja que o cursor so 
vai atd a decima quarta linha. Isto acon- 
tece porque as duas ultimas linhas sdo 
reservadas para mensagens do sistema e 
para a introdu^o de dados de controle. 
As teclas “seta a direita” e “seta 'a es- 
querda” sao usadas junto com a tecla 



< SHIFT > para fazer tabulates. 

As 14 linhas de texto que aparecem 
de uma vez na tela equivalem a uma pd- 
gina. 0 editor, quando estiver rodando 
em 48 Kb, pode manipular 31 destas te- 
las, totalizando 434 linhas. 

Experimente agora digitar caracteres. 
Voce ver d que, a medida que os digita, 
eles sao impressos na tela e o cursor se 
move. Tente, usando as setinhas, mover 
o cursor sobre os caracteres digitados. 
Observe que o cursor “passa por cima” 
dos caracteres sem apagd-los. Agora, se 
voce posicionar o cursor sobre um car- 
ter e entSo digitar outro, este ultimo 
substituird o primeiro (o que estava 
“sob” o cursor) e o cursor se move. £ 
assim que se pode modificar o texto. 

Alem das setinhas, voce pode mover 
o cursor usando as teclas < CLEAR > 
e < ENTER > ( ou < RETURN > ). A 
tecla < CLEAR > coloca o cursor na 

f irimeira coluna da primeira linha da tela 
HOME). A tecla < ENTER > move o 
cursor para a primeira coluna da pr 6 xi- 
ma linha. 

COMANDOS ESPECIAIS DE EDigAO 

0 editor tern um conjunto de coman- 
dos de edi$So para facilitar o trabalho 
de quern escreve. Estes comandos s5o 
usados para: 

• inserir e deletar caracteres (comando 
C); 

• inserir e deletar linhas (comando L); 
• ler um arquivo do disco (comando O); 
• escrever um arquivo no disco (coman- 
dos G e F); 



• imprimir um texto (comando W); 

• comandos auxiliares (comandos B, E, 
NeP). 

Para acessar estes comandos, use a 
seguinte seqiiencia: 

• pressione a tecla < SHIFT > e a 
mantenha pressionada; 

• pressione a tecla “seta para baixo” e 
a mantenha pressionada; 

• pressione a tecla de comando (B, C, 
P etc.). 

Estes comandos podem ser divididos 
em quatro grupos, de acordo com o tipo 
de dados que eles pedem: 

1 — comandos que pedem um dado nu- 
mdrico (C, L. P); 

2 - comandos que pedem uma especifi- 
ca 9 So de arquivo (F, G, O); 

3 - comandos que pedem uma letra S 
ou N (B, E); 

4 - outros (N, W). 

Vejamos, entao, com mais detalhes, es- 
tes comandos um a um. 

GRUPO 1 

Comando C — 0 comando C pede um 
dado numerico que pode ser um inteiro 
negativo ou positivo. Se o inteiro for 
positivo, o editor inserird espa 90 s em 
branco na posi 9 ffo em que o cursor esti- 
ver. Se o inteiro for negativo, o editor 
deletara caracteres a partir da pos^ao 
do cursor. 0 mimero de caracteres in- 
seridos ou deletados 6 igual ao valor ab- 
solute do inteiro digitado. 

Comando L - 0 editor inserira ou delc- 
tard linhas de acordo com o sinal do pa- 
rametro. No caso de um dado positivo. 
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a inser 9 ^o serd feita antes da linha onde 
estd o cursor. 

Comando P - Passa pdginas. Se o intei- 
ro for positivo, o editor passara para 
uma pagjna posterior d que estd na tela; 
se for negativo, o editor voltard a uma 
pdgina anterior. 0 numero de pdginas 
passadas € igual ao valor absoluto do 
dado. 

Em todos os comandos do grupo 1 , 
se nao for digitado o dado pedido, o edi- 
tor assumird o valor 1 . 

GRUPO 2 

Comando F - Grava o texto no arquivo. 
Este e todos os outros comandos deste 
grupo pedem uma especifica 9 ao de ar- 
quivo onde o texto sera gravado. 
Comando G - Mesma fun 9 ao do co- 
mando F, com a diferen 9 a de que o co- 
mando G grava o arquivo de modo com- 
pactado, truncando os espa 90 S em bran- 
co que sobram no final das linhas. 0 co- 
mando G e mais lento que o comando 
F, mas economiza, em certos casos, um 
substancial espa 90 em disco. 

Comando 0 - Le um texto previamente 
gravado em disco. Tudo que estiver na 
memoria serd apagado e sobreposto pelo 
novo texto. No final da leitura, a pri- 
meira pdgina estard na tela e o cursor em 
HOME. 

Para todos os comandos do grupo 2, 
se ndo for digitada a especifica 9 do de 
arquivo, o comando serd cancelado. Se 
for digitado um sinal de igual ( = ), o 
editor usard a ultima especifica 9 ao utili- 
zada em um destes comandos. 

GRUPO 3 

Comando B — Para o programa. Ao pa- 
rar, o editor perde todos os dados que 
estdo na memdria. Por este motivo, a te- 
cla < BREAK > 6 desativada. No en- 
tanto, o comando B pede uma confir- 
ma 9 So S/N antes de parar (isto evita aci- 
dentes). 

Comando E — Apaga a memdria para 
edi 9 ^o de outro texto. Assim como o 
comando B, este comando pede uma 
confirma 9 So antes de ser executado. 

GRUPO 4 

Comando N - Nao pede nenhum dado, 
simplesmente imprime a posi 9 ao atual 
do cursor dentro do texto, isto e. o nu- 
mero da linha e da pdgina onde estd o 
cursor. 



Comando W — Imprime o texto. Este 
comando pede dois dados numericos in- 
teiros. 0 primeiro e a tabula 9 ao a es- 
querda, que indicard o numero de espa- 
90 s em branco a serem deixados a es- 
querda do papel. £ util para centralizar 
o texto. 0 segundo 6 o numero mdximo 
de linhas que serao impressas por fo- 
lha, permitindo colocar uma margem no 
topo e no p£ da pdgina. Fomecidos es- 
tes dados, o editor esperard que o usua- 
rio posicione o papel corretamente na 
impressora para depois comegar a impri- 
mi-lo. 0 comando W oferece ainda uma 
flexibilidade a mais: com ele voce pode 
provocar uma alimenta^o de folha antes 
de se r alcan 9 ado o fim da pagina . Para isto , 
basta colocar a string III no inicio da li- 
nha do texto onde a alimenta 9 ao deve 
ocorrer. 



aten<;ao para as 
modificacOes 

Algumas modifica 9 oes podem e de- 
vem ser feitas pelo usudrio. A primeira 
delas refere-se ao sistema operacional a 
ser utilizado. Na figura 1, temos um 
quadro que sintetiza estas modifica 9 ( 5 es 
para os sistemas operacionais mais usa- 
dos atualmente em micros compati'veis 
com o TRS-80 no Brasil. 

Outra modifica 9 ao importante 6 
quanto d quantidade de memdria dis- 
ponivel. Como foi dito, o editor, tra- 
balhando com 48 Kb,armazena 31 pa- 
ginas de texto. Para uma memdria me- 
nor modifique as seguintes linhas: 

• linha 40 - calcule 14*64*NP+51 2 - 
onde NP e o numero de pdginas a ser 
encontrado experimentalmente - e co- 
loque o resultado no lugar do valor 
28288 do comando CLEAR. Por exem- 
plo, para dez pdginas, o valor serd 14 * 
64 *10+ 512 = 9472. 

• linha 60 — modifique o valor da va- 
ridvel PG para o novo numero de pdgi- 
nas. 

Se forem retirados os comen tarios do 
programa, o editor poderd passar a ar- 
mazenar pelo menos uma pagina de da- 
dos a mais. Neste caso, a modifica 9 ao 
dada anteriormente tambem deve ser 
feita, sd que aumentando o numero de 
pdginas. 

0 usudrio pode tambem mudar o ca- 
rdter que serve de cursor para outro 
mais a seu gosto. Para tal, basta modifi- 
car o valor da varidvel CR na linha 60. 

Na impressSo, o usudrio poderd colo- 
car, no topo de cada folha, um cabe 9 a- 



LINHA 


NEWDOS 


TRSDOS OU DOS500 


DIGDOS 


50 


CMD" BREAK, N" 


CMD " B" , "OFF" 


CMD" BREAK, N" 


50 


CMD"CLOCK , N" 


CMD " T " 


RETIRAR O COM. 


240 


CMD" BREAK, Y" 


CMD "B" , "ON" 


CMD " BREAK, Y" 



Figura l 



lho qualquer. Para isto basta inserir co- 
mandos LPRINT nas linhas 1620 a 
1640. O editor foi preparado para tra- 
balhar com impressoras padrao de 66 
linhas por pagina. Para modificd-lo para 
impressoras ndo-padrdo, basta alterar 
a linha 1530 para POKE 16425,1 : PO- 
KE 16424 jinn: GOSUB 1620, onde nnn 
e o numero de linhas por folha mais 1 
na impressora. 

Uma observa 9 do importante 6 quanto 
ao numero de espa 90 s em branco en- 
tre aspas da linha 100. Em todas as 
strings ha dois espa 90 s. Se isto nao for 
rigorosamente respeitado, ocorrerao 
conseqiiencias completamente imprevi- 
sfveis. Um ultimo detalhe e que o editor 
e deficiente em se tratando de edi 9 do 
de programas, uma vez que trabalha 
com linhas de 64 colunas, enquanto que 
programas BASIC podem alcan 9 ar ate 
255 colunas. 



Ivan Camilo da Cruz domina vdrias linguagens 
de programaqSo, dentre etas o BASIC, Pascal, 
FORTRAN. ALGOL, COBOL. PL/1 e Assem- 
bler, ten do experiSncia de programa^So em 
computadores grandes, minis e micros. Atual- 
mente faz curso de Ffsica na UFRJ e trabalha 
no Instituto de Quimica da mesma universi- 
dade, onde desenvolve um sistema contibi! e 
vArios outros programas administrative. 



CURSOS 

LINHA IBM (Apoio Marcodata) 

OS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1- COBOL: TECNICAS E 

otimizaqAo 

MICROINFORMATICA 

BASIC - ASSEMBLER - PASCAL 
LOGO - CP/M - VISICALC 
dBASE II -WORDSTAR 

FORMAqAO DE PROGR AMADORES 
DURAgAO: 9 MESES 

CPD-ORT : IBM 4341 COM TERMINAIS 
LABORATORY DE MICROS 

TREINAMENTO IN HOUSE 



SOLICITE INFORMAC0ES E 
FOLHETOS EXPLICATIVOS 
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EDITOR DE TEXTOS 



Editor de textos 



10 'MINI/BAS - Versao 1.00 - Escrito por Ivan Camilo 

20 CLS: PRINT CHR$(23); 0453, "MINI-EDITOR DE TEXTOS"; 
0530, "Versao - 1.00"; 0898,"! C) 1983 - por Ivan C 

ami lo" 

30 '*** INICIALIZACOES »** 

40 CLEAR 28288 'ESTE VALOR E DADO PELA FORMULA: PG»14* 
64+512, ONDE PG E' 0 NUMERO DE PAGINAS DE TEXTO 
50 CMD"CL0CK ,N" : CMD" BREAK ,N" : DEFINT A-Z 
60 CN = 0: I = 0: IC=0: J=0: K = 0: LN=0:‘N=0: NL=0: P=0: PI 
-0: PA--0: PX=0: PY = 0: PZ=0: R=0: TM = 0: A0=0: PG=51: 
LH=PG*14: CR 1 176: CH^O: TL = 0: NP=0 
70 CS ARS = "" : STS=STRINGS! 64,0 >: RS = "" 

80 ' 

90 '*** ROTINAS EM ASSEMBLY PARA INSERIR E RET IRAK LIN 
HAS *»* 

100 P1S=CHRS( 17 )+” "+CHR5! 33 )+" "+CHRS! 1 >+" "+CHK - P. 

37 )+CHRS! 184 )+CHRS( 201 >: P2S=CHRS! 1 7 > "+CHRS! 33 > 
+ " "+CHR$(1>+" "+CHRS! 237 )+CHRS( 1 76 )+CHRS( 201 ) ' L 

ADA STRING CONTEM 2 ESPACOS 
110 DIM TXKLH-l ) *» MATRIZ OUE CONTERA 0 TEXTO »* 

120 CLS 

130 AD 15360: P- PE EK( AD ): POKE AD,CR 
140 LN=! AD AND 1033 >/64+ 1 : CN=! AD AND 63)+l 
150 PRINT 0896, USING "HH , MM";LN;"-";nN 
160 CS= INKEYS : IF Cl = "" THEN 160 
170 IF CS = "[ " THEN 500 

180 IF ASC( CS >>31 THEN P=ASC!CS>: IC 1 : CH--1: GOTO 510 
190 IC=0 
200 ' 

210 '*** VETOR DE DESVIO PARA OS RCSPECTIVOS COHANDOS * 

»i» 

220 OH ASC!C$> GOTO 140, 240, 260, 140, 280, 300, 320, 
330, 340, 350, 140, 370, 380, 400, 420, 440, 140, 1 
40, 140, 140, 140, 140, 460, 470, 480, 140, 140, 14 
0, 140, 140, 490 
230 '#** COMANDO B *** 

240 POKE AD , P : PRINT 0896, "CONFIRME (S/N) 7 ";: Th 1: K = 
912: GOSUB 2350: IF RS="N" THEN PRINT 0896, STRINGS! 
20,32): GOTO 130 ELSE IF RS<>"5" THEN 240 ELSE CMD" 
BREAK, Y": CLEAR 50: STOP 
250 '«** COMANDO C *** 

260 GOSUB 1280 :CH=-1 :GOTO 510 
270 '««* COMANDO E **» 

280 POKE AD , P : PRINT 08?6,"CONr IRME (S/NP TM=1: K = 
912: GOSUB 2350: IF RS="N" THEN PRINT 0896, STRINGS 
20,32): GOTO 130 ELSE IF RSO"S" THEN 280 tLSt GOTO 

40 

290 '*** COMANDO F *** 

300 GOSUB 860: GOTO 130 
310 '*** COMANDO G *«* 

320 GOSUB 2140: G0 T 0 130 

330 IC=— 1 s GOTO 510 '*** DECREMENTA 0 CURSOR 
340 IC=1 : GOTO 510 '*** INCREMENTA 0 CURSOR 
350 IC = 6 4 : GOTO 510 '*** LINE FEED 

360 '»*» COMANDO L *** 

370 GOSUB 1680 :GOTO 530 

380 IC=( AD OR 6H003F ) + l-AD: GOTO 510 '*** RETURN 

390 '*** COMANDO N *** 

400 LN-NP«14+INT( ( AD- 15360 )/64 )+l: PRINT 0896, "LINHA"; 
LN;" PAGINA" ;NP+1 : FOR 1=1 TO 500: NEXT I: PRINT 0 
896, STRING*! 24,32): GOTO 510 
410 '*** COMANDO 0 »»* 

420 GOSUB 1030: GOTO 130 
430 '*** COMANDO P *»* 

440 GOSUB 580: GOSUB 780: GOTO 130 
450 '**» COMANDO U *** 

460 GOSUB 1470: GOTO 510 

470 IC=( AD-1 AND 6HFFF8 )-AD: GOTO 510 '*** TABULA PARA 
TRAS 

480 IC=( AD OR &H0007 )+l-AD: GOTO 510 '*** TABULA PARA 

A FRENTE 

490 POKE AD,P: GOTO 130 '*** HOME 



500 IC=-64 '*** SOBE 0 CURSOR 

510 POKE AD , P : AD=AD+IC 'RESTAURA CARACTERE ANTIGO 
520 IF ADH6255 THEN AD=A0-896 ELSE IF AD( 15360 THEN AD 
=AD+896 '**« TESTA SE 0 CURSOR ESTA' FORA DA TELA 
530 P=PEEK( AD ): POKE AD,CR 'COLOCA 0 CURSOR NA NOVA POS 
ICAO 

540 GOTO 140 
550 ' 

560 '*»»** ROTINAS DE EXECUCAO DE COMANDOS ***** 

570 '** ATUALIZA PAGINA, NUMERO DA PAGINA E TOTAL DE LI 
NHAS ** 

580 POKE AD , P : PRINT 0896, "NUMERO DE PAGINAS 7 ";: TM=5: 
K =915: GOSUB 2350: IF R* = "" THEN PI = 1 ELSE P1=VAL( 
RS> 

590 IF NOT CH THEN 690 'SE NAO HOUVE MODIFICACAO DA Tf 
LA SALTE 

600 '** ATUALIZA A PAGINA ** 

610 FOR 1=0 TO 13 

620 '*« MODIFICA 0 ENDERECO INIC1AL DO STRING DE STS ** 
630 POKE VARPTR! STS )+2,60+INT( 1/ 4 ) 'BYTE +SIG. DO ENDE 
RECO DO PRIME IRO CARACTERE DA LINHA I 
640 POKE VARPTR! STS )+l,< I AND 3 >*64 'BYTE -SIG. DO ENDE 
RECO DO PRIMEIRO CARACTERE DA LINHA I 
650 '»» ATRIBUI A LINHA I DA TELA ‘A TXS!NP*14 + I> ** 

660 TXS! NP*14 + I ) = STS 
670 NEXT I 

680 CH=0 '«* PAGINA ATUALIZADA ( SEM MODIFICACOES PENDLH 
TES) 

690 IF TL(( NP+1 )*14 THEN TL=(NP+1)*14 
700 FOR I = TL TO 1 STEP -l: IF TXS! 1-1 >=STRINGt< 64 , " ") 
OR TXS! 1-1 )="" OR TXS! 1-1 )*" " THEN ELSE GOTO 720 
710 NEXT I 

720 TL=I '*** TL=ULTIMA LINHA DO TEXTO 
730 NP=NP+Pi 

740 IF NP<0 THEN NP=0 ELSE IF NP>PG-1 THEN NP=PG-1 
750 RETURN 
760 ' 

770 '*»* DISPLAY PAGINA «*« 

780 CLS 

790 FOR 1=0 TO 13 

800 IF LEN!TXS!NP*14 + I>>=64 THEN PRINT TXS! NP«14+I ); EL 
SE PRINT TXS! NP*14 + I ) 

810 IF CS = "" THEN CS=INKEYS 
820 NEXT I 
830 RETURN 
840 ' 

850 '*** GRAVA AROUIVO *** 

860 POKE AO,P: P1=0: GOSUB 590: PRINT 0896, "AROUIVO DE 
SAIDA?"; 

870 TM=25: K=914: GOSUB 2350 
880 IF RS = " " THEN 970 
890 IF R'$< >" = " THEN ARS=RS 
900 ON ERROR GOTO 980 
910 OPEN "0",1,ARS 'G 
920 FOR 1=0 TO TL-1 'R 
930 PRINT ttl,TXS(I ) 'A 
940 NEXT I 'V 

950 CLOSE 'A 

960 ON ERROR GOTO 0 
970 PRINT 0896, STRINGS! 63,32 ): RETURN 
980 PRINT 0896, "ERRO CODIGO H";ERR;"NA LINHA" ;ERL ;STRIN 
GS( 64,32); 

990 FOR 1=1 TO 1000: NEXT I 
1000 RESUME 960 
1010 ' 

1020 '*** LE AROUIVO *** 

1030 POKE AD,P: PRINT 0896, "AROUIVO DE ENTRADA?";: TM=25 
: K=916: GOSUB 2350 

1040 IF RS = "" THEN PRINT 0896, STRINGS! 20,32 ); : GOTO 130 
1050 IF RS< >" = " THEN ARS = RS 
1060 ON ERROR GOTO 1220 
1070 OPEN "I" , 1 , ARS 
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1080 CLS: NP=0 
1090 1=0 

1100 IF EOF! 1 ) THEN 1150 
1110 LINE INPUT HI ,TXS( I ) 

1120 IF LEN! TXS! I ) )>64 THEN PRINT "LINHA" ; 1 + 1 ; "I 01 TRUNC 
ADA": TXS! I )=LEFTS! TXS! I ),64 ) 

1130 1=1+1 
1140 GOTO 1100 
1150 FOR J=I TO TL 
1160 TXS! J )="" 

1170 NEXT J 
1180 TL=I 

1190 CLOSE: GOSUB 7B0 
1200 ON ERROR GOTO 0 
1210 RETURN 

1220 PRINT 0896, "ERRO CODIGO H";ERR;"NA LINHA' ;ERL;STRIN 
GS( 64,32); 

1230 1 OR 1=0 TO 1000; NEXT I 
1240 PRINT 0869, STRINGS! 64,32) 

1250 RESUME 1200 
1260 ' 

1270 '*** INSERt N CARACTERES, DLLETA N CARACTERES *** 
1230 PA=( AD OR &H003F): PRINT 0896, "NUMERO DE CARACTERES 
?" ; : TM : 3: K=91B: GOSUB 2350: ir RS="" THEN RS-"1" 
1290 N--VAL(RS): IF N<0 THEN N = -N: GOTO 1370 ELSt IF ti O 
THEN 1440 ELSE II AD+N1PA THEN N=PA-AD+1 
1300 POKE AD , P '*** RESTAURA CARACTERE 
1310 FOR 1 =PA TO AD+N STLP -1 'MOVE UM DLOCO DE CARACTER 
E'J 

1320 POKE I, PEEK! I-N ) 'N COLUHAS PARA A FRENTE 

1330 NEXT I 

1340 FOR I- AD+N- 1 TO AD STEP -1 

1350 POKE 1,32 'APAGA N CARACTERES DEP0I3 DO CURSOR 
1360 NEXT 1: P=32: GOTO 1440 

1370 TOR I =AD+N TO PA 'MOVE UM BLOCO DE CARACTERES 
1380 POKE I-N, PEEK! 1 ) 'N COl UNAS PARA TRAS 
1390 HEX i I 

1400 FOR I=PA-N+) TO PA 

1410 POKE 1,32 APAGA H CARACTERES NO FIM DA LINHA 
1420 NEXT I 

1430 P f LEK! AD > 'SAI.VA CARACTERE 'SOD' 0 CURSOR 
1440 PRINT 0396, STRINGS! 30," ">;: RE TURN 
1450 ' 

1460 '**» IMPR1I1E TEXTO *»* 

1470 POKE AD,P: PRINT 0896,"TABULACAO 'A ESQUERDA 7 " ; : TM 
=3: K=919: COSUB 2350: N=VAL(RS>: If N>132 THEN PRI 
NT 0919," ": GOTO 1470 

1480 PRINT 0896, "NUMERO DE LINHAS POR POLHA?";: TM-2: K = 
924: GOSUB 8350: NI.=VAL(RS): IF N>88 THEN PRINT 098 
4," GOTO 1480 

1490 PRINT 0096, "P0S1CI0NE 0 PAPEL 

1500 PRINT "DIGI1E ! ENTER) PARA CONTINUAR"; 

1510 CS= INKEYS 

1520 IF CS! >CHRS< 13 ) THEN 1510 
1530 POKE 16425,1: GOSUB 1620 
1540 PRINT 0896, STRINGS! 127," ">; 

1550 FOR 1=0 TO TL-1 

1560 IF LEN! TXS! I ) ) >2 THEN IF LEFTS! TXS! I ), 3 )="///" THEN 
LPRINT CHRS! 12 ); : G0SU8 1620: GOTO 1590 
1570 LPRINT TAB! N );TXS! I ) 

1580 IF PEEK! 16425 )>NL THEN LPRINT CHRS! 12);: GOSUB 1620 

1590 NEXT I 
1600 RETURN 

1610 '#** CABECALHO *»* 

1620 '***»* COLOGUE NESTAS TRES LINHAS **** 

* 

1630 '**»** 0 SEU «»*« 

* 

1640 '***•» CABECALHO **•* 

* 

1650 RETURN 
1660 ' 

1670 '»** INSERE N LINHAS, DELETA -N LINHAS *** 

1680 POKE AD,P: PRINT 8896, "NUMERO DE LINHAS?";: TM=4: K 
=914: GOSUB 2350: IF RS="" THEN RS="1" 



1690 N=VAL! RS ): IF N!1 THEN N=-N: GOTO 1910 
1700 P1=0: GOSUB 590 

1710 NL=! AD-15360 )/64+NP#14: TL = TL+N: IF TL>LH THEN 1890 

1720 IF NL>=TL-N THEN 1880 

1730 POKE VARPTR! PX), PEEK! VARPTR! PIS )+l ) 

1740 POKE VARPTR! PX)+1,F'EEK( VARPTR! PIS )+2) 

1750 DEF USRO=PX: PZ=VARPTR! PY ) 

1760 PY=VARPTR< TXS! TL-1 ) )+2 
1770 POKE PX + 1 ,PEEK< PZ ) 

1780 POKE PX+2,PEEK! PZ+1 ) 

1790 PY = VARPTR! TXS! TL-N-1 ) )+2 
1800 POKE PX+4 ,PEEK( PZ ) 

1810 POKE PX+5, PEEK! PZ+1 > 

1820 PY = ( TL-N-NL )»3 
1830 POKE PX+7,PEEK< PZ ) 

1840 POKE F'X+8,PEEK! PZ+1 ): F'X=U5R0!0) 

1850 FOR I=NL TO NL+N-1 'APAGA N LINHAS A PARTIR DA 
1860 TXS! I >="" 'LINHA ATUAl 

1870 NEXT I 

1880 GOTO 780 'MOSTRA A NOVA PAGINA C RETORNA 
1890 PRINT 0896, "LINHAS EM EXCESSO 

1900 FOR 1 = 1 TO 500: NEXT I: PRINT 0896, STRINGS! 20,32 ): 
TL=TL-N: RETURN 
1910 P1=0: GOSUB 590 

1920 NL - ! AD-15360 )/64 + NP*14 'MOVE N LINHAS PARA TRAS 
1930 IF TL=NL+N THEN 2070 ELSE IF TL!NL+N THEN TL-TL+N: 
GOSUB 1890: GOTO 2110 
1940 POKE VARPTR! PX ),PEEK! VARPTR! PUS )♦ 1 ) 

1950 POKE VARPTR! PX )+ 1, PEEK! VARPTR! P2S )+2 ) 

1960 DEF USRO=PX: PZ= VARPTR! PY ) 

1970 PY = VARPTR(TXS(NL>) 

1980 POKE PX+1, PEEK! PZ) 

1990 POKE PX+2, PEEK! PZ+1 ) 

2000 PY = VARPTR! TXS! NL+N ) ) 

2010 POKE PX+4, PEEK! PZ ) 

2020 POKE PX+5, PEEK! F’Z+l ) 

2030 PY=! TL-NL-N )*3 
2040 POKE PX + 7,PEEK! PZ ) 

2050 POKE PX+8,PEEK! PZ+1 ) 

2060 PX=USRO! 0 ) 

2070 FOR 1=TL-N TO TL-1 'AFAGA N LINHAS DO FINAL DO 
2080 TXS! I ) = "" 'TEXTO 

2090 NEXT I 
2100 TL=TL-N 

2110 GOTO 780 'MOSTRA A NOVA PAGINA E RETORNA 
2120 ' 

2130 '**« GRAVA TEXTO COMPACTADO NO ARQUIVO *** 

2140 POKE AD , P : P1=0: GOSUB 590: PRINT 0896, "ARQUIVO DE 
SAIDA 7 "; 

2150 TM=25: K=914: GOSUB 2350 
2160 IF RS="“ THEN 2290 
2170 IF RS< >" = " THEN ARS=RS 
2180 ON ERROR GOTO 2300 
2190 OPEN "0" , 1 ,ARS 
2200 FOR 1=0 TO TL-1 

2210 IF LEN! TXS! I ))=0 THEN J = 0: GOTO 2250 
2220 FOR J=LEN! TXS! I ) ) TO 1 STEP -1 'J=ULTIMO CARACT 
ERE 

2230 IF MIDStTXS! I ),J,1 )!>" " THEN 2250 'DIF. " " DA LIN 
HA 

2240 NEXT J 

2250 PRINT HI, LEFTS! TXS! I ),J> 

2260 NEXT I 

2270 CLOSE 

2280 ON ERROR GOTO 0 

2290 PRINT 0896, STRINGS! 64,32);: RETURN 
?300 PRINT 0896, "ERRO CODIGO H";ERR;"NA LINHA";ERL;STRIN 
GS! 64,32); 

!310 FOR 1=1 TO 1000: NEXT I 
!320 RESUME 2280 
•330 ' 

340 '*** ROTINA DE LEITURA DE TECLADO *** 

350 RS = "" : PRINT 0K ,CHRS( CR ); : J=0 
360 CS=INKEYS: IF CS=“" THEN 2360 
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Jogue fora a caneta e o papel, sente-se em frente ao seu micro da linha Sinclair, cadastre 
suas mensalidades e saiba todo mes a quantas and am suas finanqas 



Controle as despesas 

no micro 

Jose Rafael Sommerfeld 



CODIGO 


NOME 


VCTO 


VALOR 


REPET 


1 


AUTOMOVEL 


20 


100000 


24 


2 


ALIMENTA^AO 


30 


50000 


99 



Figura I 



CODIGO 


DESCRIQAO 


VCTO 


VALOR 


REP 


1 


Prestaqiao X 


18 


10.000 


6 


2 


Presta<jao Y 


15 


20.000 


6 


3 


Prestagao Z 


5 


30.000 


6 



Figura 2 



Q uantas vezes voce 
ja se sentou, pe- 
gou aquele livri- 
nho de anotai; 6 es, 
bloco, folha, enfim, um pa- 
pel qualquer para ali escre- 
ver suas despesas do mes? 
E, depois disso, ficou horas 
somando para chegar ao to- 
tal dessas despesas (e, diga- 
se de passage m, sempre de- 
sejando que esse total fosse 
pequeno)? At voce come^a 
a separar as que vencem 
dia 5, 10, 15 etc. Depois, 
come^a a pensar como serii 
o mes que vem, ou daqui a 
seis meses: quantas daquelas 
mensalidades voce ainda te- 
ra que pagar? Enfim, esse 
ritual (apesar de doloroso) 
faz-se necessario quando nao 
temos um numero de despe- 
sas suficientemente pequeno 
para lembrar de cabe<;a to- 
dos os seus detalhes. 

Pois bem, este programa 
mensal e um exemplo de 
aplica^ao para esse fim. Ele 
vai cadastrar suas nensalida- 
des (valor, vencisiento, nu- 
mero de prej.ta<;oes etc.), 
fornecendo um perfeito con- 
trole de suas despesas. Veja- 
mos entao como isso funcio- 
na. 



Para operar o programa, 
6 preciso que se com preen da 
a forma^ao de seus registros. 
Sao admitidas at 6 50 mensa- 
lidades cadastradas, sendo 
cada uma delas composta 
de: 

• CODIGO — numero de 1 
a 100. Fica a criterio do 
usuario estipular o numero 
de cada mensalidade; 

• NOME - descri^ao da 
mensalidade, com ate 15 di- 
ttos; 

• VENCIMENTO - nu- 
mero de 1 a 3 1 ; 

• VALOR - numero de 1 
a 999.999; 

• REPET1Q0ES - numero 
de 1 a 98 ou 99. £ o nume- 
ro de vezes que a mensalida- 



de se repete. Quando este 
numero for igual a 99, 
isto significa que a mensa- 
lidade e permanente. 

Observemos o exemplo 
da figura 1. No registro nu- 
mero 1 , cadastramos a men- 
salidade referente a compra 
de um automovel que vence 
no dia 20 , no valor de 
CrS 100 mil e que sera 
paga em 24 vezes. Ja no nu- 
mero 2, cadastramos AL1- 
MENTAQAO como sendo 
uma mensalidade fixa, devi- 
do ao numero de repetitjCes 
ser igual a 99. 

A diferen 9 a entre uma e 
outra 6 que, na rotina de 
BAIXA do programa, po- 
demos baixar a primeira at£ 
seu numero ser igual a 0 



(quando sera automatica- 
mente excluida do arquivo); 
ja a segunda so podera ser 
excluida do arquivo atrav^s 
da rotina de EXCLUSAO. 
Assim, quando se fizer ne- 
cessdrio mudar o valor de 
ALIMENTAQAO, iremos al- 
tera -la atrav^s da rotina de 
ALTERAQAO, que permite 
mudar o valor da mensalida- 
de desejada. 

COMO FUNCIONAM 
AS ROTINAS 

• INICIAL - Esta rotina 6 
a primeira a ser executada 
pelo programa. Nela devem 
ser informados o dia, mes e 
ano da consulta ou atualiza- 
9 ao, bem como o rendimen- 
to do mes. 

• MENU — £ a segunda ro- 
tina executada pelo progra- 
ma. Nela 6 solicitada a fun- 
930 desejada. Para isso, bas- 
ta escolher e pressionar a 
tecla correspondente. 

• FIM - Esta e a ultima 
que deve ser solicitada pelo 
usuario, pois e ela que gra- 
va em fita os dados gerados. 
Quando uma nova utilizacao 
do programa for necessaria, 



deve-se entSo ler a ultima 
grava?ao efetuada. 

• INICIALIZAQAO - Esta 
rotina 6 usada apenas uma 
vez no inicio da utiliza 9 ao 
do programa. £ ela que di- 
mensiona as variaveis para 
acumulo dos dados. ATEN- 
QAO: use esta rotina somen- 
te uma vez; apos isso, in- 
clua seus dados e grave em 
fita. Ao ler novamente nao e 
necessirio executa-la mais, 
pois se o fizer, as varidveis 
serdo todas zeradas. Se dese- 
jar, como medida de segu- 
ran 9 a, apos utilizd-la elinti- 
ne as linhas 101 a 107 do 
programa, pois as variaveis 
ja estardo dimensionadas em 
memoria. Ainda sobre as va- 
ridveis, deve-se lembrar que 
um comando RUN para exe- 
cugffo do programa tambem 
causaria uma perda de infor- 
ma 95 es. Porisso, quando for 
executa-lo, ao invds deste 
comando, utilize GOTOl. 

• INCLUSAO - Permite 
incluir a mensalidade. 

• ALTERAQAO — Esta 
rotina permite alterar o va- 
lor da mensalidade. Sua uti- 



liza 9 ao 6 de grande valia 
nos casos das mensalidades 
permanentes. 

• EXCLUSAO — Permite a 
exclusfo da mensalidade. 

• BAIXA - Esta rotina de- 
ve ser utilizada sempre que 
algum pagamento forefetua- 
do, informando-se o nume- 
ro de mensalidades pagas. 

. LISTAGEM GERAL - 

Permite visualizar todas as 
mensalidades cadastradas, 
com seu respectivo total. 

• LISTAGEM POR PERIO- 

DO - Nesta rotina serSo so- 
licitados os dias inicial e fi- 
nal do periodo. Ela listara 
todas as mensalidades que 
vencem naquele periodo. 
Por exemplo: inicio = 15 e 
fim = 25 proporcionara a 
listagem das mensalidades 
que ven 9 am do dia 15 ao 
25 naquele mes. 

• ANALISE PERCEN- 
TUAL - Esta rotina nos 
fomece, a partir do codigo 
da mensalidade, sua descri- 
9 S 0 , vencimento, valor e 
percentual que aquela men- 



salidade representa sobre 
nossa renda no mes. 

• PROJEQAO — Esta roti- 
na nos fomece uma posi 9 ao 
antecipada de nossas mensa- 
lidades n meses a frente. De- 
vem -se informar os dias ini- 
cial e final do periodo em 
que se deseja a proje 9 ao, 
bem como o numero de me- 
ses da proje 9 ao. Vejamos 
como isso ocorre. 

Suponhamos que seja dia 
15.09.83 e desejamos saber 
quais mensalidades teremos 
que pagar de 10 a 20.03.84. 
Informemos, entao: dia 

inicial = 10 ; dia final = 20 ; 
n9 de meses = 6 . Observe 
que o programa, para efetuar 
esta rotina, se baseia em 
que todas as mensalidades 
estejam em dia. Outra consi- 
dera 9 ao importante 6 que 
vdrias mensalidades, com o 
mesmo numero de repeti- 
9 Ses, podem estar em situa- 
96 es diferentes. 

Vamos agora observar a 
figura 2. No caso da mensa- 
lidade 1 , ela nao aparecera 
na proje 9 ao, pois o progra- 
ma sup 6 e que em 18.09.83 



havera mais um pagamento, 
isto por ser o dia de seu 
vencimento major do que o 
dia da consulta (15.09.83). 
A mensalidade 2 apareceria 
na proje 9 ao, pois supSe-se 
que ela ja foi paga e seu 
vencimento se enquadra no 
periodo solicitado. A men- 
salidade 3 ja nao apareceria, 
por ser seu vencimento no 
dia 5, nfo atendendo, assim, 
ao periodo solicitado (de 
10 a 20 ). 

ALGUMAS DICAS 



Nas rotinas de INCLU- 
SAO, ALTERAQAO. EX- 
CLUSAO, BAIXA e ANA- 
LISE PERCENTUAL se, 
ao inv£s de digitarmos o 
codigo, digitarmos 0 , o 
programa voltara a apre- 
sentar o MENU. 



Quase todos os campos 
digitados sofrem uma cri- 
tica para valida 9 ao, porem 
nem todos tern uma mensa- 
gem de erro correspondente, 
ficando o computador a es- 
pera da redigita 9 fo da infor- 
mal, caso exista erro. Pa- 



» 




^illll KSR BI-DIRECI0NAL Hill 

O unico terminal teleimpressorfabricado no Brasil 

^ ISA, Industria de Impressoras S/A, acaba de lanpar o 

►rimeiro teleimpressor genuinamente brasileiro. Sua alta 

ecnologia eletronica, prova na pratica sua capacidade 0 **^? 

le trabalho. Imprime por matriz de pontos 9x7, 
lermitindo ate 8 copias impressas. com uma 

elocidade de 100 C.P.S. Equipado com 'Uw *1 

nemoria standard de 2 K caracteres. CaUr » 1 

itilizando formulario continuo, N «. U > ^ 

olhas soltas ou bobina de papel. ''£*2 

De 64 ate 1 32 caracteres por 



inha, com interface serial 
RS 232 elo de corrente e 
Daralelo. Sua velocidade 
Je comunicapao e de ^ 
50 a 9.600 B.P.S. 

3 diferentes 
lipos de 
impressao. 



Conhepa mais 
detalhes do 
Teleimpressor 
KSR na 



INDUSTRIA DE IMPRESSORAS S.A. 

Escritorio 

R Prol. Jose Marques da Cruz. 234 
Fabrics: 

Rua Centro Africans. 74 
Tels (011)240 2442 543 4939 
Telex: (01 D36926IIIM BR 
Sao Paulo SP 



GSECODflTR 



SISUM* or PBOC t SSAMtKTO DC dados c mico*«uN*cAi;0is 

MATRIZ Rio de Janeiro R Republics do Libano. 61 12° and. 

Tel.: (021)-221 4677 Telex (021) 30187 
FILIAIS: S Paulo R Frei Caneca. 1119 Tel (011)284 8311 Telex (01 1)22191 
Brasilia SCS 02 Bloco C n. 41 SL. 01 Tel. (061)225 1588 Telex (061) 1750 
Porto Alegre Rua Santa Terezinha. 300 Tel. :(051)32 3564 Telex (051) 2144 

Goiania Belo Horizonte Salvador 
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CONTROLE AS DESPESAS NO MICRO 




Vencimento 



Valor 

Novo Valor 



Conf irma^ao 



Inlcio de Perlodo 



Fim de Perlodo 



Numero de meses 
Figura 3 

ra evitar isso, observe a fi- 
gura 3, que content as exi- 
gences de cada campo que 
n£o possui mensagem de 
erro. 

£ importante voce saber 



ROTINA(S) 


EXIG£NCIA(S) 


Inicial 


maior que 0 e menor que 32 


Inicial 


maior que 0 e menor que 13 


Inicial 


menor que 100 


Menu 


igual ou maior que 0 e me 
nor que 10 


Inclusao, 
Altera^ao, 
Exclusao, baixa 
e Analise Perc. 


menor que o limite maximo 
de mensalidades 


Inclusao 


maior que 0 e menor que 32 


Inclusao 

Altera<jao 


maior que 0 e menor que 
1 . 000.000 


Inclusao 


maior que 0 e menor que 100 


Inclusao, 
Alterajao, 
Exclusao, baixa 
e Proje<;ao 


igual a S ou N 


Listagem P/ Perlodo 
Proje^ao 

List. P /Perlodo 
Projetjao 


maior que 0 e menor que 31 
maior que 0 e menor que 31 


Projegao 


maior que 0 e menor que 100 



que quando o CODIGO for 
uma inclusSo e houver uma 
mensagem do tipo C6DIGO 
IN VA LIDO, isso representa 
que aquele codigo ja existe 
no arquivo. Nas demais roti- 



nas representa que nao exis- 
te. 

Para aqueles que prefe- 
rem subdividir suas mensali- 
dades em detalhes, aumen- 
tando assim em demasia seu 



numero para controle, ai vai 
uma dica para aumentar a 
capacidade de mensalidades 
cadastradas. Basta alterar as 
linhas 102, 103, 104, 105, 
106, 612, 730, 815, 956 e 
1030, colocando, onde esti- 
ver escrito 50, o numero- 
limite desejado, obedecendo 
ao maxi mo de 200. Se vo- 
ce n2o tiver necessidade de 
utilizar mais que 50, entao 
nSo faija esse tipo de altera- 
9 ao, pois ela ocupara mais 
memoria, aumentando seu 
tempo perdido em consul- 
tas, grava<;Ses e leituras. 

Finalmente, 6 bom voce 
saber tamb^m que este pro- 
grama opera em slow. 



Jos€ Rafael Somme ri eld trabalha 
hi tris anos com programagao 
de microcomputadores, utilizan - 
do as linguagens Assembler. BA- 
SIC. COBOL e LTD. Atualmen- 
te trabalha no I BAM — Instituto 
Brasileiro de Administragao Mu- 
nicipal e 6 sdcio da SOFT RE- 
SEARCH Informitica. em Nite- 
rdi-RJ. 



1 REM PROGRAMA MENSAL 

2 REM JOSE RAFAEL SOMMERFELD 

3 REM CAIXA POSTAL 1709 

4 REM CEP 24120 NITEROI 

5 REM 

6 GOSUB 16U0 

7 IF FL=1 THEN GOTO 1 

10 CLS 

11 FAST 

12 FOR X=0 TO 63 

13 PLOT X,0 

14 PLOT X, 4 3 

15 NEXT X 

16 PRINT AT 1,4; "CONTROLE DE M 
ENSALIDADES" 

17 PRINT AT 5,8; “0 - FIM" 

18 PRINT TAB 8;"1 - INICIALIZA 
CAO" 

19 PRINT TAB 8; "2 - INCLUSAO" 

20 PRINT TAB 8; "3 - ALTERACAO" 

21 PRINT TAB 8;"4 - EXCLUSAO" 

22 PRINT TAB 8; "5 - BAIXA" 

23 PRINT TAB 8; "6 - LISTAGEM G 
ERAL" 

24 PRINT TAB 8; "7 - LISTAGEM P 
/PERIODO" 

25 PRINT TAB 8; "8 - ANALISE PE 
RCENTUAL " 

26 PRINT TAB 8; "9 - PROJECAO" 

27 PRINT AT 18,4;"TECLE A FUNC 
AO DESEJADA" 

28 PRINT TAB 4;" 



29 SLOW 

30 LET F$=INKEY$ 

31 IF F$< "0 " OR F$>"9" THEN GO 
TO 30 

32 LET F=VAL F$ 

34 IF F=0 THEN GOTO 50 



Controle Mensal 



35 GOTO F*100 
50 CLS 

53 PRINT AT 3,10; "F I M" 

56 PRINT AT 5,5; "PREPARE O GRA 
VADOR" 

59 PAUSE 120 

62 PRINT AT 7,1; "SE ESTIVER PR 
ONTO TECLE ""P"""' 

65 IF INKEY$<> "P" THEN GOTO 65 
80 SAVE "MENSAL" 

85 CLS 
90 GOTO 1 

100 CLS 

101 PRINT AT 11,4; "INICIALIZAND 
O VARIAVEIS " 

102 DIM C (50) 

103 DIM D$ (50 ,15) 

104 DIM V (50) 

105 DIM A(50) 

106 DIM R(50) 

107 PAUSE 120 

108 GOTO 10 
200 CLS 

203 PRINT AT 1 ,10 ; "INCLUSAO" 

206 GOSUB 1000 

207 IF FL=1 THEN GOTO 10 

209 PRINT AT 7,5; "NOME : " 

212 INPUT N$ 

215 IF LEN N$<=15 THEN GOTO 230 
218 PRINT AT 21,0; "NOME MUITO G 
RANDE ... ABREVIE" 

221 PAUSE 120 

222 PRINT AT 21,0;" 

224 GOTO 212 

230 PRINT AT 7,17;N$ 

233 PRINT AT 9 , 5 ; "VENCIMENTO: " 

*236 INPUT VE 



239 IF VE<=0 OR VE>31 THEN GOTO 
236 

242 PRINT VE 

245 PRINT AT 11,5; "VALOR ... : 
248 INPUT VA 

251 IF VA>999999 OR VA<=0 THEN 
GOTO 248 
254 PRINT VA 

257 PRINT AT 13 , 5 ; "REPETICOES : 
260 INPUT RE 

263 IF RE<=0 OR RE>99 THEN GOTO 
260 

266 PRINT RE 

269 GOSUB 1100 

272 IF CS="S" THEN GOTO 280 

275 GOTO 200 

280 LET C (CD) =1 

283 LET D$ ( CD) =N$ 

286 LET V (CD) =VE 
289 LET A (CD) =VA 
292 LET R(CD)=RE 
295 PRINT AT 21,0; "OK ... INCLU 
IDO" 

298 PAUSE 120 

299 GOTO 200 

300 CLS 

303 PRINT AT 1 , 10 ; "ALTERACAO" 

306 GOSUB 1000 

307 IF FL=1 THEN GOTO 10 

309 PRINT AT 7,5; "NOME : " 

; D? (CD) 

312 PRINT AT 9,5; "VALOR ... : " 
; A ( CD ) 

315 PRINT AT 11,5; "NOVO VALOR: 
318 INPUT VA 

321 IF VA<=0 OR VA>999999 THEN 
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GOTO 318 
324 PRINT VA 
327 GOSUB 1100 
330 IF C$="S" THEN GOTO 336 
333 GOTO 300 
336 LET A ( CD) =VA 
339 PRINT AT 21,0; "OK ... ALTER 
ADO" 

342 PAUSE 120 
345 GOTO 300 
400 CLS 

403 PRINT AT 1 , 10 ; "EXCLUSAO" 

406 GOSUB 1000 

407 IF FL=1 THEN GOTO 10 

409 PRINT AT 7,5; "NOME : " 

; D$ (CD) 

412 GOSUB 1100 

415 IF C$="S" THEN GOTO 421 

418 GOTO 400 

421 GOSUB 1200 

424 PRINT AT 21,0; "OK ... EXCLU 
IDO" 

427 PAUSE 120 
430 GOTO 400 
500 CLS 

503 PRINT AT 1,10; "BAIXA" 

506 GOSUB 1000 

507 IF FL=1 THEN GOTO 10 

509 PRINT AT 7,5; "NOME : " 

; D$ (CD) 

512 IF R (CD) <>99 THEN GOTO 524 
515 PRINT AT 21,0; "MENSALIDADE 
PERMANENTE" 

518 PAUSE 120 
521 GOTO 500 

524 PRINT AT 9,5; "NUMERO ... : " 

* 527 INPUT N 

530 IF N<=R(CD) THEN GOTO 542 
533 PRINT AT 21,0; "NUMERO > QUE 
NUMERO CADASTRADO" 

536 PAUSE 120 

539 GOTO 500 

542 PRINT N 

545 GOSUB 1100 

548 IF C$="S" THEN GOTO 554 

551 GOTO 500 

554 LET R(CD) =R(CD) -N 

557 IF R(CD) >0 THEN GOTO 580 

560 GOSUB 1200 

563 PRINT AT 21,0 ; "MENSALIDADE 
FOI EXCLUIDA" 

566 GOTO 583 

580 PRINT AT 21,0; "OK ... BAIXA 
DO" 

583 PAUSE 120 
586 GOTO 500 
600 GOSUB 690 
608 GOSUB 1300 

610 LET TV=0 

611 LET L=0 

612 FOR 1=1 TO 50 

614 IF C(I)=0 THEN GOTO 618 
616 GOSUB 1400 
618 NEXT I 
620 GOTO 1500 

690 CLS 

691 PRINT TAB 9; "LISTAGEM GERAL 

692 PRINT 

693 RETURN 

700 LET TV=0 

701 LET L=0 
703 GOSUB 790 

706 PRINT " INICIO : "; 

709 INPUT IP 

712 IF IP<=0 OR IP>31 THEN GOTO 
709 

715 PRINT IP 

718 PRINT AT 1,24; "FIM : "; 

721 INPUT FP 

724 IF FP<=0 OR FP>31 THEN GOTO 
721 

727 PRINT FP 

728 GOSUB 1300 

730 FOR 1=1 TO 50 



733 IF C(I)=0 OR V(I)<IP OR V(I 
) >FP THEN GOTO 739 
736 GOSUB 1400 
739 NEXT I 
742 GOTO 1500 

790 CLS 

791 PRINT TAB 7; "LISTAGEM P/PER 
IODO" 

792 IF TV=0 THEN RETURN 

793 PRINT "INICIO : ";IP;TAB 24 
; "FIM : ";FP 

794 RETURN 
800 CLS 

803 PRINT AT 1 , 7 ; "ANALISE PERCE 
NT UAL" 

806 PRINT AT 5,1; "INFORME O COD 
IGO DA MENSALIDADE" 

809 INPUT CD 

812 IF CD<=0 THEN GOTO 10 
815 IF CD>50 THEN GOTO 809 
818 IF C (CD) =0 THEN GOTO 809 
821 PRINT AT 8 , 4 ; "DESCRICAO : " 

; D$ (CD) 

824 PRINT AT 10 , 4 ; "VENCIMENTO : 

" ; V (CD) 

827 PRINT AT 12, 4; "VALOR 
" ; A (CD) 

830 PRINT AT 15 , 1 ; "PERCENTUAL S 
/RENDA = " ; (A (CD) * 100 ) /RD ; "3/0" 
833 PRINT AT 20,0; "TECLE ""0"" 
P/OUT RA OU" 

836 PRINT TAB 6;"""F"" P/FINALI 
ZAR" 

839 LET C$=INKEY$ 

842 IF C$="0" THEN GOTO 800 
845 IF CS="F" THEN GOTO 10 
848 GOTO 839 

900 CLS 

901 LET D=ID 

902 LET M=IM 

903 LET AN=IA 

904 PRINT AT 1 , 6 ; "PROJECAO DE D 
ESPESAS ” 

905 PRINT AT 4 , 12 ; "INFORME :" 

906 PRINT AT 6,3; "DIA INICIAL D 
O PERIODO : "; 

908 INPUT IP 

910 IF IP<=0 OR IP>31 THEN GOTO 
908 

912 PRINT IP 

914 PRINT AT 8,3; "DIA FINAL DO 
PERIODO . : 

916 INPUT FP 

918 IF FP<=0 OR FP> 31 THEN GOTO 
916 

920 PRINT FP 

922 PRINT AT 10, 3; "NUMERO DE ME 

SES : " ; 

924 INPUT N 

926 IF N>99 OR N<=0 THEN GOTO 9 
24 

928 PRINT N 
930 GOSUB 1100 
932 IF C$="N" THEN GOTO 900 
934 LET M=M+N 
936 IF M<13 THEN GOTO 948 
938 FOR X=1 TO 8 
940 LET M=M-12 
942 LET AN=AN+1 
944 IF M<=12 THEN LET X=8 
• 946 NEXT X 
948 GOSUB 990 
950 GOSUB 1300 
952 LET TV=0 
954 LET L=0 
956 FOR 1=1 TO 50 
958 IF C(I)=0 OR V(I)<IP OR V(I 
) >FP OR R ( I) <N OR V(I) >ID AND R( 
I) =N THEN GOTO 962 
960 GOSUB 1400 
962 NEXT I 
964 GOTO 1500 
990 CLS 

992 PRINT TAB 6; "PROJECAO DE DE 
SPESAS" 

994 PRINT TAB 4: "PERIODO DE ";I 



P;" A ";FP;"/";M;"/";AN 
996 RETURN 

1000 PRINT AT 5, 5; "CODIGO .. : " 
1010 INPUT CD 
1015 LET FL=0 

1020 IF CD=0 THEN LET FL=1 
1025 IF CD=0 THEN RETURN 
1030 IF CD>50 THEN GOTO 1010 
1040 IF C (CD) =0 AND F=2 OR C(CD) 

= 1 AND F> 2 THEN GOTO 1070 

1050 PRINT AT 21,0; "CODIGO INVAL 

IDO" 

1060 PAUSE 120 
1063 PRINT AT 21,0;" 

1065 GOTO 1010 

1070 PRINT AT 5,17;CD 

1080 RETURN 

1100 PRINT AT 17,7; "CONFIRMA ? ( 
S/N) " 

1105 LET C$=INKEY$ 

1110 IF CS="N" OR C$="S" THEN RE 
TURN 

1115 GOTQ 1105 
1200 LET C (CD) =0 
1210 LET D$ (CD) =" " 

1220 LET V (CD) =0 
1230 LET A (CD) =0 
1240 LET R (CD) =0 
1250 RETURN 

1300 PRINT "COD NOME " ; TAB 20; "VC 
VALOR RP " 

1310 PRINT 

1320 RETURN 

1400 LET TV=TV+A ( I ) 

1405 LET L=L+1 

1406 LET Z$=STR$ A(I) 

1407 LET Z=LEN Z$ 

1410 PRINT " " ; I ; TAB 4;D$(I);TAB 
20 ; V ( I ) ; TAB 29-Z ; A ( I ) ;TAB 30;R( 

I) 

1415 IF L<15 THEN RETURN 

1420 PRINT AT 19 , 10 ; "SUB-TOTAL = 

> " ;TV 

1425 PRINT AT 21,0; "TECLE ""P"" 
PARA PROSSEGUIR" 

1430 IF INKEY$<> "P" THEN GOTO 14 
30 

1435 LET L=0 
1440 GOSUB F*100+90 
1445 GOSUB 1300 
1450 RETURN 

1500 PRINT AT 19,14; "TOTAL => "; 

TV 

1510 PRINT AT 21,0; "TECLE "”F"" 
PARA FINALIZAR" 

1520 IF INKEYS <>"F" THEN GOTO 15 
20 

1530 GOTO 10 
1600 CLS 

1605 PRINT AT 2 , 11 ;" INFORME ;" 

1610 PRINT AT 5, 10; "DIA.. : "; 

1615 INPUT ID 

1620 IF ID<=0 OR ID> 31 THEN GOTO 
1615 

1623 PRINT ID 

1625 PRINT AT 7,10; "MES.. : "; 

1630 INPUT IM 

1635 IF IM<=0 OR IM>12 THEN GOTO 
1630 

1638 PRINT IM 

1640 PRINT AT 9,10; "ANO.. : "; 

1645 INPUT IA 

1650 IF IA>99 OR IA<=0 THEN GOTO 
1645 

1653 PRINT IA 

1655 PRINT AT 12,5; "RENDA MENSAL 

1660 INPUT RD 
1665 PRINT RD 
1670 GOSUB 1100 
1672 LET FL=0 

1675 IF C$="N" THEN LET FL=1 
1680 RETURN m 

m 
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Se para resolver uma equagao voce precisar empregar metodos iterativos, apele 
para o micro: a resposta vira bem mais rap id a e com muito maior precisao 




Resolucao 
iterativa de 
funcoes 



Rudolf Horner Junior 



N este artigo veremos como apli- 
car processos iterativos para 
resolucao de equa<;6es com o 
uso de microcomputadores da 
linha Apple. 

Em cert os problemas ligados as cien- 
cias exatas, 6 comum defrontarmos 
com a necessidade de solucionar uma 
equa 9 ao matematica. Muitas vezes, a so- 
lu^do destas equaijdes pode ser alcamja- 
da com a utilizanao de regras alg£bricas, 
permitindo obter, com relativa facilida- 
de, os valores que satisfazem a equa^So 
que pretendemos resolver. 

Em outros casos, entretanto, pode- 
mos nos confrontar com certos proble- 
mas cuja solunao analitica seja absolu- 
tamente impossivel, e a unica forma de 
chegarmos a um resultado e utilizando 
processos iterativos de aproximandes 
sucessivas. Em trabalhos como este, e 
indispensavel o emprego de um compu- 
tador, tanto pela sua velocidade quanto 
pcla sua precisSd na solunao de proble- 
mas. 



OS METODOS 



Existem diversos processos de calculo 
numerico auxiliares. Dois deles sao 
bastante comuns: 
a) Metodo da bipart igao 

Por este processo sao encontrados 
dois pontos de tal forma que se tenha 
certeza da existencia de uma raiz entre 
eles. 0 intervalo vai sendo bipartido, is- 
to e, toma-se o ponto m6dio do inter- 
valo entre os dois pontos e verifica-se 
se a raiz ficou a direita ou a esquerda do 
ponto medio. Em funnao disto, um dos 
novos extremos passa a ser o ponto me- 
dio. 



0 processo vai sendo iterativamente 
repetido at6 o momento em que a raiz 6 
esmagada pelos dois pontos extremos. 
Durante o transcorrer do processo, 
e dependendo da precisao desejada, 
podem-se interromper as iterances um 
pouco antes ou um pouco depois. 

Veja um esbo<;o grafico do funciona- 
mento do metodo da bipartinao na figu- 
ra 1. Os pontos (d) e (e) vao se aproxi- 
mando cada vez mais da raiz (g), at6 o 
ponto em que a diferen^a toma-se tao 
pequena que pode ser desconsiderada. 
b) Metodo de Newton 

Pelo metodo de Newton, deve-se to- 
mar uma aproximanao inicial da raiz. 
Calcula-se o valor da fun<;ao naquele 
ponto e sua derivada neste ponto. De 
posse destas informandes, calcula-se o 
ponto de intersenSo do eixo das abcissas 
com a reta tangente a fun^ao no ponto 
dcfinido pela primeira aproximanao. 0 
processo pode convergir para a raiz e, 
neste caso, esta intersenao representaria 
a segunda aproximanao. Repetindo-se o 
processo por algumas vezes, podera 
chegar-se a uma distancia da raiz tao 
pequena quanto se queira. 

Veja o esbono da figura 2 sobre o me- 
todo de Newton de busca de raizes. 
Tendo-se um ponto (d), podendo calcu- 
lar a equaijao da reta tangente a fun^ao 
neste ponto e sua interseijao com o eixo 
das abcissas, podemos encontrar uma 
segunda aproxima^ao. 

Dada uma itera^ao, a iteraijao 
seguinte sera obtida por esta primeira 
itera^ao subtraida do quociente entre 
o valor da funijao no ponto e da deriva- 
da da fwNjao no ponto. Para comprovar, 
tomemos a seguinte nota^ao: 



• f(x n ) — valor da funfao no ponto 
da itera^ao n 

• f’(x n ) - valor da derivada da fun- 
930 no ponto da itera 9 §o n 

Temos, portanto, da equa 9 ao de uma 
reta com coeficiente angular m e que 
passa pelo ponto (xq,yo): 

y - y 0 = m . ( x - x Q ) 

que, substituindo para nossa nota 9 ao, 
ficara: 

y - f (x n ) = f (x n ) . ( x - x n ) 

Como queremos o ponto onde a reta 
tangente intercepta o eixo das abcissas 
(y = 0), teremos: 

o - f (x ) = f • ( x ) . ( x - x n ) 

n n n 

x - x = - f <X ) / f ' ( X ) 

n n n 

x = x - f (X n )/f ' (X ) 
n n n 

E ai esta. A confab a ser aplicada a 
cada itera 9 ao e o quociente entre a 
fun 9 ^o no ponto da itera 9 ao pela sua 
derivada neste mesmo ponto. Se a fun- 
930 cqnvergir, teremos que, a cada ite- 
ra 9 ao, o valor da interse 9 ao da reta tan- 
gente com o eixo das abcissas estara 
mais proximo do valor real da raiz da 
fun9ao. 

0 METODO DE NEWTON EM BASIC 

0 programa que aqui trazemos mos- 
tra uma aplica 9 ao do processo de New- 
ton para o calculo numerico de raizes. 
A fun 9 ao a ser resolvida deve ser progra- 
mada a partir da linha nuraero 5000, de 
forma que, ao retornar ao programa prin- 
cipal, seja colocado, na variavel FX, o 
valor da fun 9 ao para o ponto especifica- 
do pela variavel X. 




(b) 




Figura 2- (a) eixo das abcissas; (b) eixo das ordenadas; (c) grdfico da 
Jung do; (d) primeira aproximagao; ( e ) reta tangente a fungao para o 
ponto (d); (f) segunda aproximagdo; (g) raiz da fungao 



O calculo da derivada 6 feito numeri- 
camente. Calcula-se o valor da fun 9 ao 
no ponto, da-se um pequeno incremen- 
to no valor da abcissa e, novamente, 
calcula-se o valor da fun 9 ao. A derivada 
e calculada a partir da diferen 9 a entre os 
dois resultados. 

O programa pede ao usudrio que defi- 
na uma aproxima 9 fo preliminar para o 
inicio do processo (a precisao desejada 
tamb6m podera ser definida). O numero 
a ser introduzido tera por fun 9 ao es- 
tabelecer at6 que casa decimal o resulta- 
do estara absolutamente correto. O pro- 
cesso podera ser acompanhado ou n£o 
(existe a op 9 ao de ver as itera 9 oes pe- 
las quais transcorre o processo). 

A fun 9 ao empregada na demonstra- 
9 ao e a fun 9 ao polinominal de quinto 
grau em x: 

x 5 - 3x 4 + 2x 3 - 3x 2 - x = - 564 



Uma de suas raizes e - 3. Experimen- 
te usar o processo com a primeira ite- 
ra 9 ao igual a - 50 e o erro na setima ca- 
sa. Ele acabara convergindo para o valor 
-3. Experimente partir de 1000 como 
primeira itera 9 §o com erro na quinta 
casa - o processo converge para a raiz. 
£ importante notar que, quando a fun- 
930 tern muitas raizes, a convergence 
para cada uma delas dependera apenas 
da aproxima 9 ao inicial utilizada. 

O tempo gasto para encontrar a raiz 
dependera da complexidade da fun 9 ao 
definida a partir da linha 5000. O me- 
todo de Newton e muito mais rapido 
do que o processo da biparti 9 ao, mas 
tern o inconveniente de, muitas vezes, 
nao convergir para a raiz da equa 9 ao. 

Para programar as fin^Ses que voce 
quiser resolver, lembre-se sempre de 
iuas coisas: caso as fun 9 oes utilizadas 
lao estejam implementadas na lingua- 



gem BASIC, voce precisara defini-las 
antes de usar o programa; e, se sua fun- 
930 estiver dividida no primeiro e se- 
gundo membros, passe tudo para um 
membro so, deixando zero no outro 
membro. 

Veja, por exemplo, o polindmio de 
quinto grau que esta na listagem. O 
termo - 564 foi transferido com o sinal 
trocado para o primeiro membro, para 
depois dar-se inicio ao processo. O pro- 
grama busca os valores que fa 9 am o 
valor da variavel FX (valor da fun 9 ao 
no ponto) estar cada vez mais proximo 
de zero. 



Rudolf Horner Junior cursa Ciincia da Com- 
putagSo na Unicamp e 6 sdcio da Potencial 
Software, empresa que desenvolve programas 
especiais para microcomputadores em Campi- 
nas. SP. 



Resolugao iterativa de /undoes 



1.0 REN RESOLUCAO INTERATIUA DE 
FUNCOES 

20 TEXT s HOME : NORMAL s SPEED* 
255 

30 PRINT "FUNC.AO: "s PRINT : LIST 
5010 

40 PRINT : PRINT : PRINT "NOSTRA 
R INTERAC0E3 <S^N>? " ; : GET 
R*s PRINT R$:R = 0s IF R* = 
"S" THEN R = 1 

50 UTAB 12= INPUT "CHUTE INICIAL 
s " ? X$= X = UAL <X^> s UTAB 1 
2: PRINT "PRIMEIRA APROX I. MAC 
AOs " 5 X 

60 UTAB 14: INPUT "PRECISAO 

; " ; XT s I = UAL <X*>s IF I < 

1 OR I > 8 THEN 60 

70 DX = 10 - is UTAB 14: PRINT 



"DIMENSAO DO ERRO : " 5 DX 
80 PRINT : PRINT : PRINT "RAIZ D 
A FUNCAOs " 

90 GO SUB 5000: FI = FX: X 1 = XsX = 

X + DX: GOSUB 5000: DE = <FX - 
F 1 > / DX: I = 0: IF DE < > 0 

THEN I * FX * DE 

100 X = XI - I: IF R THEN UTAB 2 
0s PRINT X? SPC< 8> : PRINT 
110 IF ABS <I> > DX THEN 90 
120 UTAB 20 s PRINT "X = "sXs END 

130 END 

5000 REM FUNCAQ - ENTRA ’X J SAI 
9 FX ? <X > — > FX > 

5010 FX = X 5-3 * X 4 + 2 * 

X 3 - 3 * X 2 - X + 564 
5020 RETURN ■ 
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Se voce tern um CP 500 ou um DG T, entao nao deixe de ter esse 
artigo e aprenda como quebrar a proteqao e recuperar programas em disquete 



O NEWDOS que nao 
esta nos manuals 

Rena to Degiovani 



A grande maioria dos usuarios de sistemas com disco 
nao faz uma ideia exata de todas as possibilidades de 
seu equipamento. Esse fato deve ser creditado aos 
pessimos manuals que acompanham os micros. 
Existe hoje. por parte da comunidade de usuarios, algumas 
teorias que tentam explicar o fato de o fabricante omitir infor- 
magOes que, em paises mais adiantados, costumam acompa- 
nhar cada equipamento comprado. Nao vamos tratar delas 
aqui, pordm vamos introduzir um assunto de extrema impor- 
tance para os usuarios de sistemas com disco: a estrutura do 
diretdrio do NEWDOS/80, versao 2.0, e como manipular seus 
regjstros. 

0 NEWDOS, para os que nSo o conhecem, £ atualmente um 
dos sistemas mais procurados para o CP 500 devido principal- 
mente & grande quantidade de software desenvolvido para ele, 
alem de ser o sistema base dos DGT (o conhecido DIGDOS 
nada mais £ do que a versao do NEWDOS/80 para o TRS mo- 
delo I) densidade dupla, Mas isso nao £ tudo: ele £ tambdm 
um sistema extremamente poderoso na execugao dos coman- 
dos e bastante simples de ser compreendido. 

Portanto. se voce £ proprietdrio de um CP 500 ou um DGT, 
nas versoes disco, procure uma cadeira confortavel e ligue o 
seu micro porque vamos ter uma conversa bastante interes- 
sante. 



TRILHAS, GRANULOS, SETORES E OUTROS BICHOS 



Como jd sabemos, o disco e dividido em trilhas. granulos e 
setores. O padrao mais comum de divisao adotado pelo TRS- 
DOS (e por extensao pelo DOS-500) e o seguinte: 

TRS modelo 1 - cada trilha possui 2 granulos e cada granulo 
possui 5 setores. 

TRS modelo III - cada trilha possui 6 granulos e cada granulo 
possui 3 setores. 



O conceito granulo, no entanto, merece uma atengao toda 
especial, pois pode causar uma s^rie de equi'vocos aos usudrios. 

0 manual do DOS-500 n£o usa a palavra GRANULO e sim 
BLOCO para expressar a mesma coisa, ou seja: o granulo £ a 
menor porgao alocdvel do disco. Devemos tamtam ter em - 
mente que um setor possui sempre 256 bytes, nao importando 
o sistema que estivermos utilizando. 

No NEWDOS a divisdo tanto para o modelo I quanto para o 
modelo III £ semelhante, ou seja, cada granulo possui 5 seto- 
res. Nesse caso, por&n, nao £ utilizado o conceito de trilha e 
sim LUMP, sendo que cada LUMP pode possuir de 2 a 8 gra- 
nulos. Essa aparente confusao £, na realidade, uma forma po- 
derosa de manipular a organizagao do espago do disco, uma 
vez que permite ao sistema uma configuragao bastante flexfvel. 
Pode-se mesmo reconfigurar o sistema NEWDOS a “imagem e 
semelhanga” de outro sistema qualquer, permitindo dessa for- 
ma a leitura do sistema pelo prdprio NEWDOS. 

Para os que jd conhecem o sistema NEWDOS, e interessan- 
te dar uma olhada no parametro GPL do PDRIVE. 



OS ARQUIVOS DO SISTEMA 



Todo disco de sistema possui uma serie de arquivos que sao 
as rotinas funcionais responsaveis pela execugao dos progra- 
mas ou comandos. Esses arquivos sao reconhecidos pela ex- 
tensao /SYS. 

A figura 1 apresenta todos os arquivos que devem constar 
do disco e a sua fungdo. Se o usuario necessitar de mais espago 
em um determinado disco, essa tabela o ajudard a estabelecer 
quais os arquivos fundamentals que devem ser mantidos no 
disco e quais podem ser eliminados, a fim de se obter mais 
espago. 

Apenas como regra geral, o disco deve con ter no im'nimo os 
seguintes arquivos: BOOT, DIR, SYS0, SYS1 , SYS2, SYS3 e 
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ARQUIVO GRANULOS FUN 

DIR/SYS 2 a 6 Ess 

gra 

BOOT/SYS 1 £ o 

e e 

SYS0/SYS 3 Par 

ini 
sis 

SYS 1 /SYS 1 Che 

SYS2/SYS 1 Cri 

Exe 

SYS3/SYS 1 Eli 

DEB 

SYS4/SYS 1 Imp 

SYS5/SYS 1 Com 

SYS6/SYS 7 Com 

SYS7/SYS 1 Com 

PUR 

SYS8/SYS 1 Com 

SYS9/SYS 1 Com 

SYS14/SYS 1 Com 

SYS1 5/SYS 1 Com 

.SYS16/SYS 1 Exe 

SYS1 7/SYS 1 Com 

ARQUIVOS DO BASIC DISCO 

BASIC/CMD 4 Ess 



FUNgAO 

Esse e o diretorio do disco, responsavel por todas as informagdes dos arquivos 
gravados . 

£ o arquivo de inicializagao do sistema, responsavel por carregar o DOS no micro 
e executar os resets. Deve ocupar sempre o 1» granulo do disco. 

Parte do DOS residente que ocupa a memoria do micro. £ responsavel tambem pelas 
inicializagoes do relogio, das portas I/O e por carregar os outros arquivos do 
sistema . 

Checa a validade dos comandos do DOS. 

Cria e organiza os arquivos, os codigos e as senhas dos programas do usuario. 
Executa os comandos RENAME e LOAD. 

Elimina os arquivos (KILL) e executa os comandos JKL, BLINK, BREAK, CLOCK, LC, 
DEBUG, LCDVR , VERIFY e a maior parte do comando PURGE. 

Imprime as mensagens de erro do DOS. 

Comando DEBUG. 

Comandos FORMAT, COPY e APPEND. 

Comandos TIME, DATE, AUTO, ATTRIB, PROT, DUMP, HIMEM e a Is parte dos comandos 
PURGE, SYSTEM e PDRIVE. 

Comandos DIR e FREE. 

Comandos BASIC2 , BOOT, CHAIN, CHNON , MDCOPY, PAUSE e STMT. 

Comandos CLEAR, CREATE, ERROR, LIST, PRINT e ROUTE. 

Comandos FORMS e SETCOM. 

Executa a maior parte do comando PDRIVE. 

Comandos WRDIRP e parte do comando SYSTEM. 



SYS 10/SYS 
SYS 11 /SYS 
SYS 12/SYS 
SYS 1 3/SYS 
SYS 18/SYS 
SYS 19/SYS 
SYS20/SYS 
SYS2 1/SYS 



Esse e o principal modulo residente quando o Basic disco esta sendo operado. 
Comandos GET e PUT. 

Comando RENUM. 

Comando REF. 

Imprime as mensagens de erro do Basic e is parte do comando RENUM. 

Executa as instrugoes Basic como comandos diretos. 

Comandos LOAD, RUN, MERGE, SAVE, DELETE e CMD"F" . 

Esse e o modulo Basic residente quando um programa Basic esta sendo executado. 
Executa CMD"0". 



Obs: o disco ainda deve conter os seguintes arquivos DIRCHECK/CMD, EDTASM/CMD , DISASSEM/CMD, 
LMOFFSET/CMD , SUPERZAP/CMD , CHAINTST/JCL, CHAINBLD/BAS e ASPOOL/MAS. 

Figura 1 

SYS4. £ conveniente manter tamtam o arquivo SYS8 para DRIVE o newdosso oo/oo/oo 40 trks 27 foes 
que o sistema responda ao comando DIR. 



A ESTRUTURA DO DIRETORIO 



DRIVE 0 NEWD0S80 00/00/00 


40 TRKS 


27 FOES 64 CRANS 


TESTE /BAS 


DIRCHECK/CM0 


AL0/BAS 


CHAINTST/DCL 


NWD80V2/ILF 


CPD/BAS 


FUCFUC/CMD 


LMOFFSET/CMD 


MICR0SIS/BAS 


EDTASM/CMD 


PLANO /BAS 


SUPERZAP/CMD 


NEWDOS/ 80 READY 







Neste ponto, podemos iniciar a nossa incursao atraves dos 
registros do disco, mas antes serd preciso dar uma olhada no 
diretdrio do mesmo. Ld deve constar o programa DIRCHECK/ 
CMD e o famoso SUPERZAP/CMD. Esses programas fazem 
parte integrante do NEWDOS e devem acompanhar o disco do 
sistema. Se voce adquiriu um sistema onde nao constavam es- 
ses dois programas, entSo procure um amigo que os tenha e 
tire uma c6pia, pois £ fundamental te-los. 

0 diretdrio de um disco nada mais e do que uma s£ne de 
setores especfficos onde s£o armazenadas as informag<5es vi- 
tais sobre o estado do disco e seus arquivos (ou programas). O 
comando DIR apenas faz uma leitura sumaria da situagao e a 
apresenta ao operador. 

Na figura 2 vemos o resultado do comando DIR num disco 
bastante generico. Podemos notar apenas os arquivos existen- 
tes e que ndo receberam atribuigao de invisibilidade. No en- 
tanto, existem mais coisas por tras do diretbrio do que se 
possa sonhar. Para que os fantasmas comecem a aparecer, 
serd necessario utilizar o SUPERZAP. 



DRV 


00 


FFFF 


FFFF 


FFFF 


FFFF 


FEFF 


FFFF 


FFFF 


FFFF 




0 


10 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FDFC 




OH 


20 


FCFE 


FFFC 


FCFC 


FCFF 


FFFF 


FCFE 


FCFC 


FCFC 






30 


FEFF 


FFFF 


FDFC FCFC FCFC 


FCFC FCFC FCFC 




DRS 


40 


FCFC FCFC 


FCFC 


FFFD 


FFFF 


FFFF 


FFFF 


FFFF ........ 




170 


50 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 




AAH 


60 


FCFC 


FCFC 


FCFC 


FCFC FCFC FCFC 


FCFC 


FCFC 






70 


FCFC FCFC 


FCFC 


FCFC 


FCFC 


FCFC 


FCFC 


FCFC 




TRK 


80 


FCFC 


FCFC 


FCFC 


FCFC 


FCFC 


FCFC 


FCFC 


FCFC 




9 


90 


FCFC 


FCFC 


FCFC 


FCFC FCFC 


FCFC 


FCFC 


FCFC 




9H 


A0 


FCFC 


FCFC 


FCFC FCFC 


FFFF 


FFFF 


FFFF 


FFFF 






B0 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 




TRS 


CO 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FF82 0000 E042 


B 


8 


DO 


4E45 


5744 4F53 


3830 


3030 


2F30 


302F 


3030 NEWD0S8000/00/00 


8H 


E0 


0DFF 


FFFF 


FFFF 


FFFF 


FFFr 


FFFF 


FFFF 


FFFF 




P 


F0 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 


FFFF 





Figura 3 
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O NEWDOS QUE NAO ESTA NOS MANUAIS 



Com o programa SUPERZAP na mem 6 ria do micro, exe- 
cute o modo DD, com os parametros de entrada 0,170 para o 
CP 500, ou 0360 para o DGT 100. Esses dois setores (170 e 
360) sSo os primeiros setores do diretbrio e devem correspon- 
der mais ou menos k figura 3 (depende dos arquivos ou progra- 
mas do seu disco). 



O SETOR GAT 
(Granule Allocation Table) 



O setor GAT £ o primeiro setor do diretbrio e contdm as 
seguintes informa 9 des (acompanhe pela figura 3 e no seu equi- 
pamento): 

Tabela de distribui^o dos granulos livres — cada um dos 
bytes no intervalo 00H a 5FH corresponde a um LUMP e cada 
bit corresponde ao status ocupado/livre de todos os granulos 
do LUMP. O bit 0, do byte, corresponde ao primeiro granulo 
do LUMP, o bit 1 ao segundo e assim por diante atd que se 
completem 8 granulos. Se o bit for igual a 0, o granulo est£i 
livre e poderd ser utilizado. Se o bit for igual a 1, o granulo 
estd ocupado ou n£o existe. 

Vejamos como exemplo o byte 21H. Ele corresponde ao 
trigbsimo quarto LUMP do disco (2 1 H=33 decimal). Como na 
formatagSo do disco normalmente o LUMP £ definido com 2 
granulos, o valor FEH vai nos indicar que o primeiro granulo 
do LUMP estd livre, pordm o segundo estd ocupado 
(FEH=1 11111 10). 

Tabela de existencia do granulo — Os bytes no intervalo 
60H a BFH estffo relacionados aos bytes 00H a 5FH. Se um 
bit do byte £ 0 , entffo o granulo correspondente na drea 
00H a 5FH para esse LUMP existe e pode ser usado. Se o bit 
for 1, entSo o granulo nSo existe, nSo pode ser utilizado e o 
seu correspondente na drea 00H a 5FH deve ser igual a 1. Na 
realidade, embora o NEWDOS crie esses bytes de existencia 
durante a forma ta^o, eles s 6 servem para manter a compati- 
bilidade com os velhos TRSDOS. O NEWDOS nunca seta um 
granulo inexistente. Quando necessdrio, a tabela de existencia 
do griinulo £ descartada e os seus bytes sSo utilizados na tabela 
de distribuitjSo dos grSnulos livres, ficando esta com a faixa 
00H a BFH. 

Codigo da senha do disco - O cbdigo da senha do disco 
estd contido nos bytes CEH e CFH. 

Nome do disco - O nome do disco est & nos bytes D0H a 
D7H. 



A2C4 2E2F 
0000 0000 
2829 2627 
0000 0000 
25A5 24A4 
0000 0000 
5800 2A00 
0000 0000 
F000 0000 
0000 0000 
0029 00E2 
0000 0000 
0000 0000 
0000 0000 
0000 A 100 
0000 0000 



2A2B 0000 
0000 0000 
26A6 0000 
0000 0000 
24A4 0000 
0000 0000 
0067 C000 
0000 0000 
001F 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
8900 0000 
0000 0000 



0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 



Figura 4 



Data do disco — A data do disco estd nos bytes D 8 H a 
DFH. 

Comando AUTO - Se o comando AUTO estiver ativado, a 
sua sintaxe constard dos bytes EOH a FFH. Se o primeiro by- 
te dessa drea for ODH, entffo o comando AUTO foi desativado. 



O SETOR HIT 
(Hash Code Index Table) 

0 setor HIT (figura 4) e o segundo setor do diretbrio (171 
ou 361) e cada um de seus bytes serve para indicar quando e 
onde estSo localizadas as informaijbes referentes aos arquivos 
do disco. A posi<;So de cada byte dentro do setor e quern for- 
nece a localiza^o das informa 96 es. 

Cada grupo de informacbes relativas a um determinado ar- 
quivo recebe a denomina^o gendrica de FDE. Se um byte do 
setor HIT possui valor 00H, o seu FDE correspondente estd 
livre e pode ser usado ou entSo ele nSo existe. Se o byte for 
diferente de 00H, entao o FDE correspondente esta em uso e 
esse byte do setor HIT £ o Hash Code obtido pelo nome e ex- 
tensao do arquivo. 

0 329 byte do setor HIT £ usado de modo diferenciado dos 
outros bytes do setor. Ele contem o total dos setores extras 
alocados para o diretbrio. Os valores possiveis sSo: 0, 5, 10, 
15 e 20. 



OS SETORES DE FDE 
(File Directory Entry) 



Os demais setores do diretbrio tern os seus 256 bytes divi- 
didos em 8 grupos de 32 bytes cada um. Cada grupo desses £ 
que recebe a designa^ao gendrica de FDE e guarda todas as 
informa 9 bes dos arquivos ou programas. Um FDE esta livre se 
o bit 4 do seu 19 byte for igual a 0 e esta em uso se o bit for 
igual a 1 . 

Na figura 5 temos um setor com seus 8 FDE. 0 19 FDE 
inicia no byte 00H e vai ata o byte 1FH, e assim por diante. 
Podemos identificar, nesse setor, os arquivos SYSO, SYS 8 , 
SYS 16 e os programas ALO/BAS, CHAINTST/JCL e 
NWD80V2/ILF. Identificamos tambdm um FDE totalmente 
zerado e um programa, FITA7/BAS, que foi deletado pelo 
comando KILL (note o seu 19 byte). 



5F20 0000 
5678 1234 
5F20 0000 
5678 1234 
5F20 0000 
5678 1234 
1020 0020 
9642 9642 
0000 0000 
0000 0000 
0020 0020 
9642 9642 
1020 0032 
9642 9642 
1020 0000 
9642 9642 



Figura 5 



2053 5953 
FFFF FFFF 
2053 5953 
FFFF FFFF 
2053 5953 
FFFF FFFF 
2042 4153 
FFFF FFFF 
0000 0000 
0000 0000 
2042 4153 
FFFF FFFF 
544 A 434C 
FFFF FFFF 
2049 4C46 
FFFF FFFF 



SYSO SYS 

VX.4..." 

SYS8 SYS 

VX.4 

. . .SYS16. . .SYS 

VX.4 

ALO BAS 

• B.B 



F3TA7. . .BAS 

.B.B. ." 

. . .2.CHAINTST3CL 

.B.B 

NWD80V2.ILF 

.B.B..! 
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Quando o NEWDOS £ solicitado a manipular um determina- 
do arquivo (LOAD“ALO/BAS” por exemplo), ele imediata- 
mente calcula o seu Hash Code (ALO/BAS-2AH)e vasculha o 
setor HIT buscando uma paridade. Quando tal paridade e en- 
contrada, o FDE correspondente e lido e seu nome e extensao 
sao comparados com os fornecidos pelo usuario. Se o sistema 
nao encontrar semelhan 9 a, entao a busca no setor HIT conti- 
nual ate o arquivo ser encontrado ou terminar o setor HIT. 

Note que, no nosso exemplo, o Hash Code de ALO/BAS 
(2AH) equivale tambem ao Hash Code do arquivo SYS4/SYS, 
apenas a sua posi 9 ao difere (SYS4/SYS e o byte 06H do 
setor HIT e ALO/BAS £ o byte 62H). Para determinar a posi- 
9 ao do Hash Code de um arquivo dentro do setor HIT, basta 
somar a posi 9 ao do 19 byte do seu FDE ao setor do disco, 
menos 172 (ou 362). No exemplo (ver figura 5)o 19 byte do 
FDE de ALO/BAS £ 60H e esta no setor 174, assim 
62H - 60H+02H. De uma olhada no byte 62H da figura 4 e 
voce terd a confirma 9 ao. 



FPDE 

(File Primary Directory Entry) 



Quando o bit 7, do 19 byte do FDE, £ igual a 0, entao esse 
FDE recebe a denominagao especifica de FPDE. Caso contra- 
rio, se o bit for 1 , a denomina 9 ao sera FXDE. A diferen 9 a en- 
tre FPDE e FXDE £ apenas para determinar se um FDE con- 
tain todas as informa 9 bes do arquivo ou se ele £ apenas uma 
extensao de um outro FDE. 0 FPDE, como o prbprio nome 
diz, contem as^principais informa 9 bes do arquivo e pode, ou 
nao ter extensoes FXDE. 




Figura 6 



Como podemos ver, o FPDE £ a “carteira de identidade” 
dos arquivos ou programas do diretorio. Na figura 6 temos um 
dos FPDE da figura 5 (correspondente ao programa ALO/ 
BAS). Cada um dos 32 bytes tern uma significaipao muito espe- 
cial para o sistema. 

19 byte - esse £ um dos bytes fundamentals do FPDE e 
deve ser bastante conhecido pelo usuario. Cada um dos seus 
bits significa: 

bit 7 — 0 - indica um FPDE. 

1 - indica um FXDE. 

bit 6 - 0 = arquivo normal (CMD, BAS, JCL, DAT, etc). 

1 = arquivo do sistema (SYS). 

bit 5 — indefinido. 

bit 4 — 0 = FDE esta' livre e pode ser ocupado. 

1- FDE contem um arquivo (esta ocupado). 

bit 3 — 0 = arquivo visivel. 

1 = arquivo invisfvel. 

bit 2 a 0 nivel de acesso ao arquivo ( o valor estani entre 0 e 
7 e corresponde aos niveis do parametro PROT, 
do comando ATTRIB). 

Podemos notar- facilmente que esse e o BYTE que recebe 
todas as atribuifoes do arquivo e que um arquivo normal do 
usuario, sem prote?ao ou atribui^ao, devera te-lo com o valor 
10H, pois 10H = 00010000 (bit 4= 1). >> 
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O NEWDOS QUE NAO ESTA NOS MANUAIS 



niimero do granulo initial dentro do primeiro grupo 
Os outros 5 bytes sao o numero de grSnulos adjacen- 
tes menos 1 . 



29 byte - esse byte mantem alguns parametros relaciona- 
dos aos comandos do DOS. Seus bits significam: 
bit 7 — 0=o arquivo pode ocupar mais espago quando ne- 

cessario. 

1 = nao d permitida a ocupagao de mais espago 
(DIR, ATTR1B, CREATE, e a rotina de termino 
de arquivo do DOS utilizam esse bit), 
bit 6 - 0=o fechamento de arquivo (a nivel de DOS) pode 

realocar os granulos excedentes acima do EOF. 

1 = o realocamento nao e permitido (DIR, CREATE, 
ATTR1B utilizam esse bit), 
bit 5 - 0 = nao ha registro para arquivo. 

1 = pelo menos urn setor do arquivo foi gravado ou 
atualizado (DIR, ATT RIB, CREATE. PROT.COPY 
e a rotina de gravagao do DOS utilizam esse bit). 

bit 4 a 0 nao sao utilizados. 

39 byte - nao utilizado. 

49 byte - byte de baixa ordem do EOF. 

5° byte - tamanho da gravagao logica (LRECL, 0 - 256) 
em quantidade de bytes. 

69 ao 139 bytes - nome do arquivo. 

149 ao 169 bytes - extensao do arquivo. 

179 e 189 bytes - cddigo da senha do arquivo. 

1 99 e 209 bytes - cddigo da senha de acesso. 

219 byte - byte mddio do EOF. 

229 byte — byte de alta ordem do EOF. Os 3 bytes juntos, 
49, 219 e 229 formam o valor do EOF. 

239 ao 309 bytes - 4 pares de bytes onde cada par especi- 
fica uma area de 1 a 32 granulos adjacentes e associados ao 
arquivo 0 formato de cada par apontador e: 

19 byte 255 - significa o fim da area para aquele arquivo. 

254 (FEH) - significa que o proximo byte contem 
o codigo da posigao do primeiro, ou prdximo, 
FXDE associado ao arquivo. 

0 a 253 (00H a FDH) - representa o LUMP do dis- 
co em que tal area comega. Esse valor e tambem a 
posigao, dentro do setor GAT, do byte associado a 



319 e 329 bytes - par de bytes apontadores que serve para 
assinalar o fim do FPDE ou sua extensao. 

19 byte 255 (FFH) - indica fim do diretdrio. 

254 (FEH) - existe para esse arquivo uma exten- 
sao FXDE. 

29 byte se o 19 byte for 254, entao esse byte representa o 
codigo da posigao para localizagao da extensao 
FXDE. 



FXDE 

(File Extended Directory Entry) 



Quando o arquivo possui mais do que 4 tieas associadas, 
entao e criado o FXDE, que passa a funcionar como extensao 
do FPDE. 0 formato do FXDE 6: 

19 byte - bit 7 e 4 sao ambos iguais a 1 para indicar urn 
FXDE. e todos os outros bits devem ser iguais a 0 (o valor cor- 
respondente sera 90h - 10010000). 

29 byte — codigo DEC do FPDE ou FXDE anterior para 
esse arquivo. 

39 ao 229 bytes - nao sao utilizados e devem ser zerados. 

239 ao 329 bytes - sao utilizados da mesma forma que no 
FPDE. 



A MANIPULAQAO 
DOS DADOS DO DIRETORIO 



Alterar ou manipular os dados do diretorio de um disco e 
mais ou menos como mexer com abelhas: se voce souber o que 
esta fazendo, nao ha tantos riscos de catastrofes como a pri- 
meira vista possa parecer. De fato, esse 6 o unico meio seguro 
de aprender algo, e se alguem tivesse que dar “conselhos" so- 
bre esse assunto, o unico digno de nota seria: nao tenha medo 
e va em frente. Quern nunca levou um tombo de bicicleta, 
nunca realmente aprendeu a andar nelas. 

29 byte Quando o 19 byte e menor que 254, os 3 primeiros Por esse motivo, e sempre bom usar copias (backup) e dei- 
bits do 29 byte (faixa de 0 a 7) representam o xar sempre um disco como matriz. 



SUPERZAP: descri^ao e operacao 



0$ modos de display aprcsentam um setor 
standard de 256 bytes, da seguinte forma 
(acompanhe pda figura 2): 

coluna I — especifica^Ses do setor em 
questao: Drive (DRV), setor do drive 
(DRS). trilha (TRK) e setor relativo da 
trilha (TRS). 

coluna 2 - indice dos bytes do setor. 

coluna 3 - os 256 bytes do setor 
apresentados em pares hexadedmal. 

coluna 4 - os 256 bytes do setor 
apresentados em caracteres. 



Para a movimentacao dentro do disco nos 
modos de display basta pressionar a tecla 
+ para avam^r um setor ou a tecla - para 
retroceder. A tecla X retorna o menu, e 
digitando EXIT o SUPERZAP e 
abandonado e e feito o retorno ao DOS. 

Para alterar um setor basta digitar MOD e 
o byte que sera modificado. Um cursor 
pi scar a nessa posigao c para 
modifica^des basta somente digitar o 
novo valor. O cursor pode ser movimentado 
pelas setas do tecla do. e para executar as 
modifi canoes basta pressionar ENTER. 



O SUPERZAP e um dos utilitarios 
mais poderosos que existe 
atualmente no mercado. A sua 
utiliza^ao nao se restringe apenas ao 
NEWDOS, podendo mesmo operar com 
outros sistemas, respentando-se. e claro. 
certas limita^des. 

Ele se presta a uma serie de opera<;de$ 
tais como: consertar setores do disco, 
desproteger arquivos, recuperar programas, 
limpar areas e copiar setores. A sua operacao 
e bastante simples e seu menu apresenta 
todos os modos de operacao possiveis. 
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A teoria apresentada nesse trabalho 6 apenas uma introdu- 
gao ao conhecimento necessario para alterar o diretorio com 
seguran 9 a, porem com paciencia e atengao sera possivel corri- 
gir a maior parte dos problemas que o disco apresentar. Va- 
mos, a ti'tulo de ilustragao, ver como recuperar um arquivo 
acidentalmente, ou nao, deletado. 

Tomemos como base a figura 5. Nela ha o programa 
FITA 7/BAS que, como o 19 byte do seu FPDE mostra (byte 
AOH), foi eliminado pelo comando KILL. Para que o arquivo 
passe a existir no diretorio, basta que o bit 4 do 19 byte seja 
setado. Para proceder a alteragao, utilize o SUPERZAP em 
modo de modificagao. Digite MODAO e o cursor piscara exa- 
tamente em cima do byte desejado. Introduza o valor 10H e 
execute a modificagao (ENTER). No FPDE isso 6 tudo que se 
tern a fazer, lembrando tambem que essa e a forma de eliminar 
as prote 9 oes dos arquivos. 
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Figura 7 



Se sairmos do SUPERZAP (EXIT) e dermos o comando 
DIR do DOS, o diretdrio passara a listar o programa recupera- 
do (figura 7), porem isso nSo significa que o programa esta 
accesi'vel (notar que os parametros de ocupagao do disco ainda 
sao os mesmos da figura 2). Para que o programa possa ser li- 
do. sera preciso consertar tambdm o setor HIT 

0 programa DIRCHECK pode ser muito util nesse momen- 
to. Com ele sera possivel localizar qual byte do setor HIT estd 
“com defeito” e obter uma analise do andamento das modifi- 
cagoes no diretorio (se aiguma coisa estiver errada, o DIRCHECK 
acusara o erro e o seu local). 

No nosso exemplo ocorrera a mensagem de erro no byte 
A2H do setor HIT. Na figura 4 podemos constatar que esse 
byte esta zerado, quando deveria conter o Hash Code de 
FITA 7/BAS. 0 modo DNTH, do SUPERZAP. calcula esse 
Hash Code, que no nosso exemplo sera DAH. Agora e so posi- 
cionar esse valor no setor HIT e ZAP. Como que por encanto... 
la estara o programa FITA 7/BAS. 

Nao se entusiasme muito, pois coisas ainda podem aconte- 
cer. Lembre-se sempre de que, para um programa ser recupera- 
do com pleno sucesso, ele precisa antes existir. Se houve qual- 
quer gravagao posterior no disco que sobrepos parte, ou a tota- 
lidade do espa 90 ocupado pelo arquivo, recupera-lo sera uma 
tarefa impossivel. Alguns casos, no entanto, podem ser resol- 
vidos mas isso ira exigir algumas “cirurgias” e uma boa dose de 
criatividade por parte do usuario. A regra continua sendo a 
mesma: tentar, mesmo que isso signifique a destruigao total 
dos registros do disco (afinal era apenas uma copia). 
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O sucesso no Micro-Festival 84, 
da qualidade maior, 
do preqo menor e 
das vendas realizadas, 

agora tern um novo nome: 

^croftH 

e um novo enderego: 




A Sacco Computer Store, estct agora em novas e 
amplas instalagdes com sua variada linha de compu- 
tadores e perifericos, destacando-se o novo micro- 
computador CRAFT II plus', totalmente compativel 
com D.O.S. 3.3 e CP/M. 

Conhega todas as caracteristicas e vantagens 
do CRAFT II plus. tamb6m compativel com IVANITA", 
em nosso novo enderego: 

Al. Gabriel Monteiroda Silva. 1229- J. Paulistano 
SSo Paulo - Tels.: (Oil) 853-5520 e 280-4778 

i-i CRAFT ii p>ut e m»>ci 'epniiada da MiceOCRAFt ino o Com Uda 
«**• ivaniTa Gar ado* de Caiacte'M mu nooua oor'uQueia 




SDFTUlfiftE 
E : . 

KIFINlJTENCflD 
DE : 
COKIPLIT ADCIHEE] 









Assistencia tecnica 
em microcomputadores nacionais 
e importados, compativeis com: 

Apple, TRS- 80, PC/IBM, perifericos... 
Atendimento rapido e eficiente, 
ou em nosso laboratorio credenciado, 
sob contrato anual ou chamada avu/sa. 



Av. Corifeu de Azevedo Marques, 1691 - Cj. 01 
Tel.: 813-6661 

Futuras insta/aqoes: R. Pinto Goncalves, 115 
Tel.: 62-2773 
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Prestasao de Servipos 




O micro da Scopus na Av. Tirade rites 

Nexus aprovado, 
Scopus pede passagem 



A loja Imarbs, de Sao Paulo, estb 
vendendo uma variada lista de 
aplicativos comerciais e pes- 
soais, acompanhados de manuals, 
etiquetas com o resumo do con- 
teudo do sistema e garantia de 
manutenpbo. Os aplicativos estao 
disponfveis em disquetes ou fi- 
tas cassete. A Imarbs jb estb co- 
mercializando tamWm o micro- 
computador de 16 bits PC 2001 , 
da Microtec, compatfvel com o 
PC da IBM. A configurapao bb- 



sica do PC 2001 b composta por 
UCP com 256 Kbytes, monitor 
de fdsforo verde de alta resolu- 
pao, interfaces serial e paralela, 
dois drives para disquetes de 5", 
e unidade de teclado desta- 
cbvel. Acompanham o equipa- 
mento um processador de texto 
(Wordstar), uma planilha de cbl- 
culos (calcstar) e um gerencia- 
dor de arquivos (infostar). A 
Imarbs oferece garantia do PC 
2001 pelo perfodo de um ano. 



Depois de um investimento de Cr$ 250 milhoes no ano passado e 
a mobilizapao de uma equipe de 17 profissionais de hard e software 
durante cerca de 1 1 meses, a Scopus conseguiu a aprovapao do Nexus, 
seu microcomputador de 16 bits. A aprovapao da SEI torna a Scopus 
a unica empresa nacional autorizada a fabricar um micro de 16 bits, 
compatfvel com o computador pessoal da IBM. Segundo a Scopus, 
um fator fundamental para a aprovapao do Nexus foi a demonstra- 
pbo, por parte da empresa, de que o software bbsico do equipamento 
— SISNE e Interpretador BASIC — foi realizado com recursos pr6- 
prios e sem dependencia de fontes externas de tecnologia. 

A tftulo de curiosidade, a Scopus esteve presente no carnaval pau- 
lista deste ano, colocando na avenida tres microcomputadores de sua 
fabricapao. Os micros participaram da festa desde a fase de organize- 
pao atb o dia do desfile, controlando a montagem das arquibancadas, 
a instalapao de som, iluminapao e decorapbo, entre outras atividades, 
e fornecendo informapoes importantes, tais como horbrios dos desfi- 
les, letras de sambas enredo e servipos diponfveis na avenida. 



Bolsas de Estudo 

Estao abertas inscripoes para bolsas de estudo nos cursos de 
p6s-graduapao e mestrado em Eletronica. ano letivo de 1985, que 
se realizam no "Philips International Institute - PIT", em Eind- 
hoven, Holanda. Os candidatos devem ser diplomados ou estar 
cursando o ultimo ano de Engenharia Eletronica ou Ffsica, n§o 
ter dependences em seus cursos na data do embarque, ter a ida- 
de mbxima de trinta anos e falar fluentemente o idioma ingles. 
As inscripoes podem ser feitas atb dia 31 de maio, pessoal men te 
ou por carta, na Gerbncia do Departamento de Recrutamento e 
Selepao de Pessoal da Philips, Rua Geraldo Flausino Gomes, 33, 
8P andar, Sao Paulo, tel.: (01 1 ) 545-2377. 



Brasil Trade Center: 
negocios em expansao 




Zferecendo servipos paralelos aos usudrios de micros e videos, a 
Zompvideo investe na industria de Informatics na medida em que ela 
?sre;a lioada ao lazer e b admin istrapSo. 



Os negbcios parecem que vao 
de vento em popa. O grupo em- 
presarial Brasil Trade Center e 
Participapoes S/A, no Rio de Ja- 
neiro. albm de sua sede em Ipa- 
nema estb inaugurando uma fi- 
lial no Centro, na Rua da Assem- 
ble, 10, loja. 

Como bem define o presiden- 
te do grupo, Manoel D'Assunpao 
F. Gomes, o BTC b um Banco 
de Negdcios, aberto a qualquer 
segmento de mercado que se 
mostre promissor, tendo como 
meta principal fomentar o inter - 
cambio com o mercado interna- 
cional e oferecer uma sbrie de 
produtos e facilidades ao empre- 
serbrio e outras pessoas interes- 
sadas. 

Sao vbrias empresas dentro 
de uma s6, e entre elas estb a 
BTC Computadores e Vfdeo 



(Compvfdeo). Nao b apenas uma 
loja, como diz Manoel D'Assun- 
pao, "b uma comunidade basea- 
da no sistema cooperati vista, da 
qual podem participar todas as 
pessoas interessadas em micro- 
computadores, videocassetes e 
videogames". A ela estao direta- 
mente iigadas outras empresas 
da holding que permitem ofere- 
cer servipos paralelos aos usub- 
rios, como a BTC Viagens e Tu- 
rismo, promovendo visitas aos 
principals centros de informbti- 
ca norte-americanos. bem como 
a feiras e exposipoes, e a BTC 
Administrapao de Consbrcio, fa- 
cilitando a aquisipao dos equi- 
pamentos pelos clientes. 

A Compvfdeo comercializa 
toda a linha de microcomputa- 
dores existentes no mercado na- 
cional, albm de impressoras, dis- 



quetes. drives, jogos em tita cas- 
sete, videogames e videocassetes. 
O software aplicativos desenvol- 
vido por uma equipe de analis- 
tas, que tambbm ministram cur- 
ios de BASIC na prbpria Comp- 
vfdeo. Possuem financiamento 



prdprio em atb 10 vezes sem ju- 
ros, com mensalidades reajusta- 
das de acordo com a ORTN do 
mes. A sede do BTC fica na Av. 
Epitbcio Pessoa, 280, Ipanema, 
tel.: (021) 259-1299, Rio de Ja- 
neiro, RJ. 



Link 727 

A Link Tecnologia e a Microtec Sistemas 
se associaram para o lanpamento do Link 727, 
um microcomputador totalmente compatfvel 
com IBM PC. As primeiras 20 mbquinas foram 
entregues no final de 83, para avaliapao por 
parte de grandes empresas, revendas, software- 
houses eassistSnciastScnicase. segundo a Link, 
a aceitapao e desempenho foram considerados 
excelentes. O Link 727 tern UCP com proces- 
sador INTEL 8088, de 16 bits, velocidade de 
5 MHz e membria de 256 Kbytes de RAM. A 
configurapao bbsica vem com dois acionadores 
de discos de 5 1/4", de dupla face e dupla 
densidade, e monitor profissional de fbsforo 
verde. Jb se encontram disponfveis tambbm 
os seguintes perifbricos: expansao de membria 




O 727. da Link 

atb 1 Mbyte, disco Winchester de 5 ou 10 
Mbytes e monitor policrombtico RGB. Em 
sua configurapao inicial, o 727 custa 1.525 
ORTN, e a empresa Link estb selecionando re- 
vendedores. 



PC Filter 

Rufdos e interferences de rbdio-frequbn- 
cia em microcomputadores sem duvida jb 
deixaram muita gente a ver navios apbs ton- 
gas horas de digitapao jogadas por bgua abai- 
xo. Os rufdos e interferences sao gerados de 
vbrias formas, entre elas por motores sendo 
acionados, aparelhos dombsticos etc., e, pe- 
netrando em computadores, podem causar 
danos desde a perda de programas ou arqui- 
vos, e atb dano f fsico em componentes. Pro- 
curando evitar este tipo deproblema, a 8SL 
Equipamentos Ltda. estb lanpando no Bra- 
sil o PC Filter. O PC Filter pode ser instala- 
do pelo prbprio usubrio e jb se encontra-d 
venda nas lojas Imarbs, em Sao Paulo. Seu 
prepo d de 10 ORTN. 



Acessorio 
para rede Cetus 



Depois de lanpar sua rede local, a 
Cetus col oca no mercado o servidor 
de arquivos CS 1200. 0 CS 1200 b 
um nodo especial capaz de 
gerenciar atb quatro unidades 
de discos rfgidos Winchester de 
5 ou 10 Mbytes, permitindo 
assim que diferentes usudrios 
da rede compartilhem de um ou 
mais discos. O nodo b um 
elemento inteligente de ligapao 
entre o equipamento usubrio 
e a rede. Jb a ligapao do 
equipamento usubrio com o 
nodo b feita atravbs de uma 
interface serial padrao RS 232C 
ou uma interface paralela tipo 
Centronics. 



A Cetus b uma rede local do 
tipo "bus" (serial) com 
protocolo de comunicapSo 
interno transparante aos 
elementos da Rede. Nbo existe 
nenhum elemento centralizador 
ou controlador da rede, todos 
os nodos sao inteligentes. Se 
houver falha em algum dos 
nodos. esta nao ird interferir 
na comunicapao entre os demais 
elementos da rede. Podem ser 
ligados a rede local Cetus 
computadores, 

microcomputadores e todos os 
perifbricos. A rede Cetus 
permite a interligapao de atb 
255 nodos. 



Contabilidade Geral da Nasajon 



O Sistema de Contabilidade 
Geral da empresa carioca Nasa- 
jon Sistemas, para a linha TRS- 
80. pode ter seu arquivo de da- 
dos expandido em at6 quatro 
disquetes com 1 mil lanpamen- 
tos por disquete e seu tempo de 
resposta 6 de 3 segundos. 



Este software, desen volvido 
para o CP-500 e DGT-100, 6 ca- 
paz de emitir relatdrios como 
extrato de contas. livro di&rio, 
livro razio, relatdrio para centro 
de custo, balancete de verifica- 
pao, balancete mensal e balanpo 
geral. 



{ strings / 

★As lojas CompuShop, de Sao Paulo, estao vendendo discos rfgidos 
fabricados pela GEN, do Rio Grande do Sul. O disco de 5 Mbytes 
custa 750 ORTN e o de 10 Mb, 900 ORTN. ★ A filial da Microdigital 
de Porto Alegre coloca b disposipao dos usubrios da linha TK o seu 
telefone: 24-5060. Para aqueles que desejarem dirigir-se diretamente 
ao local, o enderepo b Av. Borges Medeiros, 410, bloco II, IIP andar, 
conj. 1 108.ik A Lys Eletronic e a Stieletronica assumiram, em partes 
iguais, o controle acionbrio da Stratus Informitica. elevando seu capi- 
tal social para Cr$ 300 milhoes. Os novos recursos, segundo a empresa, 
permitirao desenvolver novos produtos e expandir a linha de impresso- 
ras, terminais impressores, teleimpressores e telex eletronico.* A Esul- 
tra, de Belo Horizonte, estb oferecendo cursos de Gerencia Empresa- 
rial, Anblise de Sistemas, Programapao COBOL e Programapao BASIC, 
utilizando equipamentos SID 3000, S-700, CP-500 e CP-200. Informa- 
poes na Av. do Contorno, 6475/5826 e Rua Sergipe, 1 199. 



M-100 X, a novidade da Globus 

A Globus estb lanpando no mercado a impressora M-100 X, um 
modelo aperfeipoado com capacidade de imprimir 100 caracteres por 
segundo. em 132 cotunas. A principal mudanpa neste produto consis- 
te na substituipao da cabepa de impressao que passa de sete para nove 
agulhas. garantindo melhor qualidade visual e permitindo maiores re- 
cursos de impressao. O sustendador da cabepa de impressbo b em du- 
plo eixo e o equipamento possui grande flexibilidade de software, 
compatibilidade Epson e com pacotes Apple II. 



Danvic lan^a 
Camilla com sucesso 




Apresentado na ultima Feira 
de Informbtica. o microcom- 
putador Capula. fabricado pela 
Danvic S.A., entrou de sola no 
mercado paulista: duas sema- 
nas depois de seu lanparnento 
a nfvel comercial foram vendi- 
das, em 15 dias, 60 unidades. 
ou seja, a produpao relative a 
dois meses deste equipamento. 
Com isso a empresa superou 
suas expectativas de duplicar o 
faturamento neste ano. espe- 
rando agora quadruplicb-lo. 

Em sua configurapao mf- 
nima, o Capula vem com UCP 
com dois processadores Z80A 
(sendo um para o vfdeo), te- 
clado profissional com letras 
maiusculas ou minusculas, te- 
clado numbrico separado, vf- 
deo de fdsforo verde 80 x 24 



e um drive para disquetes de 
5 1/4" fac8 simples. 

O prbximo lanpamento da 
Danvic serb o Capula Dual, que 
albm do Z80A terb tambbm 
um microprocessador 8088, de 
16 bits, e trbs sistemas operacio- 
nais: CP/M versSo 2.2, CP/M 
86 (16 bits) e MS-DOS (16bits 
utilizado no PC da IBM). E os 
proprietbrios do Capula que 
quiserem passar a trabalhar 
tambbm com 16 bits poderao 
comprar a placa com o proces- 
sador 8088 separadamente. A 
placa jb estb disponfvel no mer- 
cado em duas versoes, com 
1 28 kb e com 256 kb. Os dois 
equipamentos sao totalmente 
compatfveis com o DV 2000, 
sistemaimultiusubrio da Danvic. 



» 
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especiais atraves do disco, atri- 
buindo fungSes a determinadas 
teclas. A Unitron langou tam- 
b#m um monitor de vfdeo de 
f6sforo verde, 12” e alta resolu- 
gdio. A Microdigital mostrou o 
TK 2000 Color (que roda Apple- 
soft), agora dispom'vel para co- 
mercializagSo. 

Para a linha Sinclair, a Tigre 
Eletr&nica langou cartuchos 
com programas em linguagem de 
m£quina. diretamente adaptd- 
veis aos equipamentos, os quais 
sSo comercializados pela Exa- 
tron. 

A Dismac apresentou no Mi- 
crofestival 84 o PC 16, compatf- 
vel com o PC da IBM. Possui 
processador 8088 e memdria va- 
riiivel de 256 K atd 1 Mb, atra- 
vds de blocos de 128 K cada. A 
empresa trouxe tambdm seu dis- 
co Winchester de 10 Mb para a 
linha do Alfa 2064. 

A UCTE - Unidade Contro- 
ladora de Terminals Educacio- 
nais foi a novidade apresentada 
pela Digitus. O equipamento. 



Com uma diferenga de me- 
nos de seis meses do grande 
evento da Area, a Feira de Infor- 
mdtica, nSo poderiam ser muitas 
as novidades apresentadas no 
Microfestival 84. O que se viu, 
de modo geral, foram implemen- 
tagoes em cima de produtos j A 
la ng ados no Informdtica 83. 

No entanto conti nuam apa- 
recendo no mercado novos mi- 
cros de 8 bits. £ o caso do ATS 
2800, da Angra, empresa que es- 
td ingressando na cirea. O ATS A 
um microcomputador multitare- 
fa, com processador 280 A e me- 
m6ria RAM que varia de 64 K 
atA 4 Mb. Sua configuragao b4- 
sica A compos ta por teclado com 
UCP, drive para disquete de 5 
1/4" e vfdeo de 12” de fdsforo 
verde. O prego desta vers§o A de 
570 ORTN. 

A Racimec apresentou seu 
micro portcStil, o Senior, com 
processador 8085, composto 
por dois mbdulos bdsicos - te- 
clado com visor e drive com 
UCP — que se fecham em uma 
unica caixa para transporte. A 
empresa langou tamWm duas 
impressoras, Ita e Carla, de 100 
e 120 cps respectivamente. 

A Itautec mostrou a linha 
I 7000 Jr em duas versdes: Jr e 
Jr E, que apresentam diferengas 
bSsicas a nfvel de teclado e dis- 
quetes. O Jr E, a\Am do teclado 
alfanum^rico, possui um teclado 
numdrico reduzido e pode traba- 
Ihar tambdm com disquetes de 
8”. A empresa langou v3rios ser- 
vigos de suporte, entre os quais 
uma sdrie de 160 aplicativos pa- 
ra diversas areas e que rodam em 
qualquer um de seus equipamen- 
tos. 

Na linha dos micros compa- 
tfveis com o Apple, tivemos o 
Elppa Jr, em versoes de 1 6 e 48 
K de RAM, e o Apple Senior Ida 
Milmar, fabricante do Apple II 
Plus), que aldm do processador 
6502, vem tamtam com um 
Z80A, tern teclado num^rico 
reduzido e trabalha com letras 
maiusculas e minusculas. O AP 
II, da Unitron, tern agora uma 
nova versfo, a T. I. (teclado in- 
teligente). O novo teclado tern 
processador prdprio e 2 K de 
RAM. caracteres em portugues, 
maiusculas e minusculas, e per- 
mite que se carregue caracteres 



TK 2000 
Color, da 



Microdigital. 



Senior, 
computador 
portAtil, e a 
impressora 
Carla, dois 
lanpamentos 
da Racimec. 



conectado diretamente ao DGT 
1000, faz com que ele possa 
controlar at6 16 outros DGT 
1000, que passam a funcionar 
como terminals para transferdn- 
cia e recebimento de programas. 

A Elebra langou um mddulo 
opcional para a impressora M6- 
nica, que permite tragar gr£ficos 
de alta resolugSo e a Videocom- 
po mostrou uma s^rie de moni- 
tores de vfdeo cromdticos de 
1 4” a 14 MC. 



3270. O outro pacote A o BSC 
1 , atraves do qual os microcom- 
putadores passam a emular ter- 
minals 2780 ou 3780 para trans- 
missao de arquivos. 

Para o mesmo tipo de liga- 
g£o, a Intertec tamWm apresen- 
tou seus pacotes para micros 
com CP/M: Trans BSC 3E, Trans 
BSC 3/T e a Versffo I, uma roti- 
na de acesso a disquetes. A Labo 
foi outra empresa que apresen- 
tou um sistema para ligagcFo de 
seus equipamentos emulando 
terminais 3270. 

Um sistema inteligente de 
resposta audfvel chamado Tal- 
ker foi a novidade apresentada 
pela BMK. Ele acessa banco de 
dados atraves de telefone e ge- 
rencia axA 32 ligagdes. J A a Spec- 
trum, fabricante do Microenge- 
nho, langou no Microfestival 84 
um kit para utilizagSo desse mi- 
cro como terminal de videotex- 
to. 

A Compucenter langou no- 
vos programas para controle de 
projeto, caiculo financeiro e ge- 
renciamento de banco de dados, 
entre outros, e no estande da 
Cobra estavam sendo demons- 
trados alguns dos 150 progra- 
mas listados pela empresa para 
serem utilizados em seus equipa- 
mentos em variadas dreas de 
aplicagdo. 

Ficou claro nesta mostra a 
preocupagSo crescente dos fabri- 
cantes de micros em ampliar ca- 
da vez mais o campo de utiliza- 
gao de seus equipamentos, atra- 
v6s do desenvolvimento de soft- 
ware para as mais diversas 4reas 
de aplicagSo. ■ 



PREOCUPACAOCOM o 
SOFTWARE 



Com relagSo aos langamen- 
tos de software, o destaque fi- 
cou para os pacotes de ligagSo 
de micros a equipamentos de 
grande porte. A loja Imardsesti 
comercializando dois desses pa- 
cotes. O BSC 3 permite a liga- 
cao de equipamentos da linha 
Apple a computadores 4341, da 
IBM. Nesse caso, o micro passa a 
emular um terminal da famflia 



Sysdata III, 
agora 
dispom'vel 
para 

comercializacSo 



A TS 2800, o 
micro- 
computador 
multi tare fa 
da Angra. 




SUPRIMENTO E COISA SERIA 



Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada 

Discos Magnetos 5 Mb 16 Mb 80 Mb etc . SSKhTAS p/NjpflWrW: g0*W M 200 - B 300/60 

DISKETTES: 5 1/4 e 8” • marca VERBATIM • Fita p / Impressoras: Efebra. Elgin. Epson. Oigilab. Diablo, etc 

etiquetas pimaco -pimatab I 



Cii t lt|tt»ilic*ti nil 
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Este e um . 

equipamento profissional. 




0 UNITRON AP II 6 o microcomputador profissional de maior versatilidade. Com memoria expansivel ate 
384 K, capacidade para ate 14 unidades de disco, utilizagao do sistema CP/M, monitor de Tosforo verde com 
apresentagao de ate 160 caracteres por linha, impressoras Elebra ou Elgin e diversos acessorios opcionais, o 
AP II pode ser configurado na medida certa das suas necessidades. Utilizando programas ou processando a 
folha de pagamento, o contas a pagar/receber, o controle de estoques e a contabilidade, o AP II e a solugao 
ideal para os seus problemas ou da sua empresa. 

Esta e uma empresa profissional. 

COMPUMICRO e a primeira empresa brasileira a adotar o conceito de "BUSINESS COMPUTER 
CENTER". Inteiramente dedicada ao uso profissional dos microcomputadores, a COMPUMICRO esta ca- 
pacitada a prestar-lhe um ATENDIMENTO TOTAL, desde o levantamento de necessidades, configurapao 
de equipamento, fornecimento de "hardware" e "software" e treinamento, ate a implantaqao de SOLUQ0ES. 

A equipe da COMPUMICRO e formada por profissionais de elevada experience e alta capacitapao 
na Area de Informatica. Atuando desde 1981 na comercializapao de microcomputadores, a equipe da 
COMPUMICRO apos estruturar e dirigir duas das mais conhecidas lojas da cidade, e de fundar e dirigir a 
primeira revista brasileira de microcomputadores, estruturou-se para levar ate voce toda a experience de 
quern ja comercializou mais de 250 UNITRON AP 1 1 , para os mais diversos ramos de atividades. 

FINANCIAMENTO - ALUGUEL - LEASING 



carpu Rua Sete de Setembro 99 — 11°. 

INFORMATICA EMPRESARIAL LTDA. PBX 224-7007 
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A Tabela 6 um mitodo contraceptive) antigo; a novidade § que, com 
este programa, quem faz as contas e um micro da I inha TRS-80 



. . pii ’ 
a fertilidade 

programada 

Armando Oscar Cavanha Filho 
Maria Beatriz de Campos Cavanha 




E xistem vlrias formas de se evi- 
tar a concep 9 So, algumas com 
mais eficiencia do que outras. 
Desenvolvido para a linha TRS- 
80, este programa nSo aprova nem desa- 
prova qualquer mdtodo utilizado, apenas 
faz uma interpreta^fo (a partir dos da- 
dos bibliograficos) do m^todo de Ogini- 
Knaus (conhecido tamb^m como Tabela). 

O programa produz uma tabela com 
os dias mais prov^veis de fertilidade (pos- 
sibilidade de engravidar) e infertilidade 
(possibilidade de nao engravidar) com 
rela 9 ao ao ciclo menstrual. Entende-se 
como ciclo menstrual o periodo (em nu- 
mero de dias) compreendido entre o pri- 
meiro dia do aparecimento de uma mens- 
trua 9 §o e o primeiro dia da menstrua 9 ao 
seguinte. Este ciclo serd regular quando 
as menstrua 9 oes ocorrerem com constan- 
cy em seus periodos de tempo e seri ir- 
regular se houver varia 9 ao do periodo 
das menstrua 9 oes (veja figuras 1 e 2). 

Vejamos como funciona o programa 
atrav^s de um exemplo. Suponhamos 
que os ciclos sejam regulares de 29 dias, 
sendo que o primeiro dia de menstrua- 
9 ao tenha caido no dia 15 de maio de 
1 984 . Quais os dias provavelmente ferteis 
e n2o ferteis ate a menstrua 9 ao seguin- 
te? 

Para que o programa possa fazer este 
cilculo, o micro perguntara se o ciclo 6 
regular e esta pergunta deve ser respon- 
dida com S/N. A partir daf, o programa 
perguntard qual o periodo, em numero 
de dias, do ciclo menstrual e por ultimo 
a data do aparecimento do primeiro dia 




Figura 1 - Ciclo regular 



It d 1 « 4a 

•entlruif ao 




Figura 2 - Ciclo irregular 



10 REM “PIL" 

15 DIM SS(7):DIM MSI12):DIM LDll 
2) 

20 CLS 

30 INPUT"0 CICLO MENSTRUAL L" RE 

CULAR S/N’rAS 

40 IF At * “S" THEN 130 

50 IF AS « » "N" THEN 20 

60 PRINT#320, "OUAL O PERIODO, EM 

NUMERO DE DIAS. DO CICLO MENSTRUA 

L IRREGULAR MAIS CURTO" : 

70 INPUT MC 

00 PR1NTR512 , “QUAL O PERIODO, EM 
NUMERO DE DIAS, DO CICLO MENSTRUA 
L IRREGULAR MAIS LONGO" : 

90 INPUT ML 

100 II MC-23 OR ML 50 THEN GOTO 
180 

110 KS'"CICLO I FREGULAR" 

120 IN'-MC- 19: ri»ML-l2» CLS: GOT 
O 190 

130 PRINT»J20,"QUAL O PERIODO, EM 
NUMERO DE DIAS, DO CICLO MENSTRU 
AL REGULAR": 

140 INPUT ML 

150 IF ML' 23 OR ML >50 THEN GOTO 
160 

160 IN-ML-19: FI-ML-12 

170 KS "CICLO REGULAR": CLS: GOT 

O 190 

180 CLS: PRINT'O PROGRAMA TRABAL 
HA COM VALORES ENTRE 23 E 50 Ol A 
S": GOTO 30 

190 PRINT#! 20, "QUAL A DATA DO AP 
ARECIMENTO (1*01 A) DA MENSTRUACA 
O (DD.MM.AAAAl "; 

200 INPUT D.M.A 
205 CLS 

210 IF A 1984 OR M- 1 OR M 12 OR 



PU 



D< 1 OR D> 3 1 THEN GOTO 230 
220 GOTO 250 

230 PRINT-0 PROGRAMA SO ADHITE A 
NOS SUPER IORES A 1983, MESES ENT 
RE 1 E 12, DIAS DE 1 A 31": GOTO 
190 

250 S$ . 1)-“SEG”:SS (2) - "TER'iSS (3 
1 “ "QUA" : SS ( 4 1 ■ "QUI" : S$ (5) - "SEX" : 
S$ (6 1 ■ "5A8“ : S$ ( 7 J - "DOM" :M$ 1 1 ) *“J 
AN" :M$ (2)«-"FEV":MS ( 3 1 • "MAR" :MS ( 4 
)-"ABR":M$ (5)-"MA!":MS (6)'"JUN": 
MS <7)-"JUL":V.S(B)-’AGO":MS (9)-"S 
ET":M$ (10) • "OUT": MS (XI ) “NOV": MS 
<12)-"DEZ" 

270 LD(1)*31:LD(2)«=28:LD(3)«31:L 

D(4l-J0:LD<5)-31:LOC6)-30:LD<7)« 

31:LD(81-31:U>(9»-30:LD(10)»31:L 

D(11)-30:LD (121-31 

280 VI- INT (A/100) : Y2-A-100*Yl: 

N-O 

290 IF M>2 THEN GOTO 370 
300 N-2 

310 IF Y2-0 THEN GOTO 350 
320 RR-Y2-4 • INT (Y2/4 1 
330 IF RR<>0 THEN GOTO 370 
340 N-l : GOTO 370 
350 RR-Y1-4 • INT (Y 1/4 ) 

360 IF RR-0 THEN LET N-l 

370 CC- INT ( 365.25*Y2j*!NT(30.56 > 

M)*N*D 

380 W-3*CC-7MNT( (CC*2)/7j 

390 DI-D: CO-O: FF-192 

400 FOP J-l TO 7: PRINT#128«J*5, 

SS(J) : NEXT J 



410 GOSUB 1000 
420 DI-DI* 1 

430 IF DI«-LD<M) THEN GOTO 1000 
ELSE IF M<>2 THEN GOTO 460 
440 GOSUB 1300 

450 IF BI-1 THEN GOTO 460 ELSE I 

F DI-29 THEN GOSUB 1000 

460 Dl- 1 : M=M« 1 

470 IF M< 1 3 THEN GOSUB 1000 

480 A-A*l: M-l 

490 GOSUB 1000 

1000 CO-CO* 1 

1010 IF CO-ML* 1 THEN GOTO 14 SO 
1020 PRINT#FF*W*5,DI : 

1030 IF COIN AND CO< = FI*l THEN 

GOTO 1050 

1040 GOTO 1060 

1050 PR I ST#F F*W*5,"F"; 

1060 PR1NT#242«64 • INT (CO/7 ) ,M$ iy 
) 

1070 IF K-7 THEN GOTO 110' 

1080 W-W*l 

1090 GOTO 420 

1100 FF-FF*64: K-l 

1110 IF DI-29 THEN RETURN ELSE - 

OTO 420 

1300 IF Y2<>0 AND INT IY2/4 i - Y2 i 
THEN GOTO 1340 

1310 IF Y2-0 AND IKT l Yi/4 | -Yl/4 

THEN GOTO 1340 

1320 BI-1: RETURN 

1340 BI-0: RETURN 

1400 PRINT*} » 3 , “F* PROVAVELMENTE 

FERTIL"; 

1410 PRINT#837 ,KS; 

1420 PRINV#990 , "P/OUTPO PLANO DI 
GITE 9": 

1430 INPUT T: IF T-9 THEN GOTO . 
0 ELSE 1420 



da mcnstrua 92 o, a qua! deve ser informada desta forma DD. 
MM. AAAA. Para o nosso exemplo. o resultado seria a seguin 
te tabela: 
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Agora vamos imaginar um caso de ciclos menstruais irregu- 
lares, com os menores ciclos situando-se em 27 dias e os maio- 
res ciclos cstendendo-se a 33 dias. Se o primeiro dia da mens- 
iruacSo for 20 de janeiro de 1988, quais os dias provdveis de 
fertilidade? (observe que 1988 6 ano bissexto). Rode o pro- 
grama e veja a resposta. 

Obscrva 9 ao: se houver op95o pelo conceito de que “contain- 
se 14 dias do final do ciclo para tris. variando-se tres dias a 
frente e tres dias para tris, trocar as linhas 120 e 260 por: 

120 IN=MC- 1 7 : FI=ML- 1 1 : CLS : GOTO 190 

160 IN=ML- 1 7 : FI =ML- 1 1 

Os autores do programa agradeccm ao Fisico Fernando Ma- 
lhciros Roxo da Motta pelo auxilio prestado no desenvolvimen- 
to da Idgica para constru 9 §o do calendirio. 
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Toda precisao 6 pouca quando se trata de calculos computacionais em BASIC. 
Este artigo discute o assunto e apresenta algumas sugestoes praticas 



Calculos precisos em 

BASIC 

Akeo Tanabe 



S empre que um procedimento de cdlculo 6 mecanizado, 
usando calculadoras ou computadores eletronicos, o 
problema da precisffo passa a ser um ponto de considera- 
9$6 obrigatdria. O objetivo deste artigo £ mostrar justa- 
mente os aspectos desta questffo, particulares aos calculos com- 
putacionais realizados em microcomputadores, utilizando a lin- 
guagem BASIC. 

Na representado de um valor real em BASIC, estfo implfci- 
tas as informa^Ces de grandeza e a precisdo com que ela esta 
representada. No calculo manual, por nSo se impor limita^o 
alguma ao numero de algarismos significativos empregados na 
representa^o do numero, a questffo da precisao £, na maioria 
das vezes, ignorada. J i na aritmdtica computacional, como nSo 
podemos aumentar o numero de algarismos significativos, o 
problema da precisao ganha grande importancia, nSo podendo 
ser ignorado de maneira alguma. 

VISAO COMPUTACIONAL DE UM NUMERO REAL 

Como a precisao £ ditada pelo numero maximo de algans- 
mos representados, £ interessante determinar este valor na lin- 
guagem BASIC. 

Um valor real ou de ponto flutuante em BASIC, na forma 
normalizada, e representado por O.lxxxxxxxxxxx * 2 n , onde 
xxxxx sao algarismos da base 2 (0 ou 1 ). 0 algarismo mais sig- 
nificative da parte fracionaria £ sempre feito igual 1 . Como a 
parte Fracionaria tern sempre esta mesma forma, o zero, a vir- 
gula e o bit mais significativo ndo sao efetivamente represen- 
tados. A posi 9 ao que seria ocupada pelo algarismo mais signifi- 
cativo e ocupada pelo sinal do numero. 

A parte fraciondria, que representa os algarismos significati- 
vos do numero, sem as informagbes citadas e juntamente com 
o sinal do numero, £ representada na por^ao conhecida como 
mantissa. A potencia efetiva da base 2 (n), que dita a ordem de 
grandeza do valor, somada ao valor +128 £ armazenada num 
byte, na por 9^0 conhecida como caracteristica. 

Uma descri 9 ao detalhada da mecanica desta representa 9 ao 



se encontra especificada no artigo “0 Erro de Truncamento 
em BASIC”, apresentado em MS n9 24, de set/83. 

A caracteristica £ representada da mesma maneira em quase 
todos os microcomputadores; jd a mantissa £ representada dife- 
rentemente nos vdrios micros. Por exemplo, no CP-500 a man- 
tissa £ representada em 3 bytes (24 bits). No TRS-80 Color e 
no Color 64, a mantissa 6 representada em 4 bytes (32 bits). 

0 valor ndo se altera se a virgula for deslocada para a direita 
e se o expoente for ajustado convenientemente. Assim, se na 
representa^o do CP-500 a virgula for deslocada de 24 posi- 
9bes, teremos:0.1xxx..AX * 2° = lxxx..xx, * 2 n 24 . 

Esta identidade mostra que podemos raciocinar com a 
mantissa como um valor fraciondrio e tambdm como um nu- 
mero inteiro, expresso na base 2 . 0 valor inteiro maximo que 
pode ser representado em 24 bits 6 16.777.215. Enquanto 
em 32 bits, o maior valor inteiro 6 4.294.967295. 

Se estivdssemos acostumados a raciocinar com a base 2, as 
informa^es acima seriam suficientes. Como nossos padrbes 
de compara 9 fo sdo todos referidos a base decimal, as informa- 
9 bes na base 2 serdo convertidas para a base 10 . 

ALGARISMOS SIGNIFICATIVOS 
E ORDEM DE GRANDEZA 

Nos 24 bits reservados para a mantissa, no CP-500, pode- 
mos representar um numero inteiro compreendido entre zero e 

16.777.215. Portanto, 24 algarismos da base 2 sdo equivalentes 
a oito algarismos decimais, pois sdo oito os algarismos decimais 
do valor maximo. Como os algarismos decimais significativos 
somente sdo disponiveis para valores menores ou iguais a 

16.777.215, contamos com um mdximo confidvel de sete al- 
garismos decimais significativos. 

Procedendo de maneira andloga com os 32 bits empregados 
pelo TRS-80 Color e Color 64, concluimos pela possibilidade 
de representar um valor inteiro compreendido entre zero e 
4.294.967295. 

Os 32 bits sdo equivalentes, portanto, a dez algarismos deci- 
mais significativos. Como esse numero somente se aplica a va- 
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lores inferiores ao mdximo especificado, contaremos, efetiva- 
mente, com o maximo confiavel de nove algarismos decimais 
significativos. 0 numero de algarismos na base decimal equiva- 
lente a um numero qualquer de bits pode ser mais elegante- 
mente determinado atraves da igualdade: lO* = 2 n . Aplicando 
logaritmo na base 10, temos: x = logi 0 2 n = n <: log 1 o2. 

Sabendo que o logaritmo de dois na base 10 6, aproximada- 
mente, igual a 0,3010, para n= 24 corresponde x= 7,2240 e 
para n= 32 corresponde x= 9,6320. As partes inteiras dos valo- 
res de xapresentadosrepresentamo numero confidvelde algaris- 
mos decimais significativos com os quais se pode trabalhar. A 
parte fracionaria nao-nula indica que poderemos, em verdade, 
contar com um pouco mais do que os numeros citados. Portanto, 
atd oito algarismos decimais significativos no CP-500 e atd dez 
algarismos decimals significativos no TRS-Color e no Color 64. 
Mas este algansmo adicional somente estaria disponivel para 
valores inferiores aos valores ja especificados. 

A ordem de grandeza do valor e determinada consultando- 
se a caracteristica. Como a representado 6 a mesma tanto para 
o CP-500 como o TRS-Color e Color 64, fazemos um trata- 
mento unico. O valor maximo 255, da caracteristica, corres- 
ponde ao expoente efetivo +127 da base 2. Podemos, entao, 
estabelecer que 10 9 = 2 1 27 . Aplicando logaritmo na base 10 a 
ambos os membros, temos que g = 127 log 10 2, donde o valor 
de g = 38,227 nos informa que 1,0 * 2‘ 2 7 = 1,0° 10 38 . 

Por raciocimo andlogo, para a caracteristica zero, que cor- 
responde ao exnoente efetivo minimo -128, podemos estabe- 
lecer que 10 9 = 2* 1 28 , donde g = 38,528. 

Portanto, o BASIC permite a representa 9 ao de numeros 
reais que estejam compreendidos entre: -1.0 * 10 +38 a 
- 1.0 * 10- 38 e entre + 1.0 * 10 38 a + 1.0 * 10 +38 . 

aplica^Ao prAtica 

Os exemplos especiais apresentados a seguir foram selecio- 
nados para llustrar alguns aspectos importantes do problema 
da precisao. No primeiro deles, a fdrmula que permite a deter- 
mina 9 ao do dia da semana de uma data qualquer do calendano 
gregonano (conhecida como Congruence de Zeller) pode ser 
esenta como: 

f= -flNT(2,6M-0,2) + D+A-2S + 

+ INT (A/ 4 ) + INT (A/4)}- MODULO 7 (1) 

onde INT indica que deverd ser considerado apenas o maior 
inteiro contido no valor numdrico da expressao entre paren- 
teses que se segue. MODULO 7 significa que o resto da divisao 
por 7, da expressao entre colchetes, deverd ser atribuido a va- 
ridvel f. Os dias da semana se associam ao valor de f, segundo a 
seguinte sequencia: 

f = 0 Domingo f = 4 Quinta-feira 

f = 1 Scgunda-feira f = 5 Sexta-feira 

f = 2 Ter 9 a-feira f = 6 Sabado 

f = 3 Quarta-feira 

Os parametros a serem considerados na expressao entre col- 
chetes sao: A — dezena constituida pelos algarismos das deze- 
nas e das unidades do ano, por exemplo. A = 83 para o ano 
1983; S - dezena constituida pelos algarismos do milhar e das 
centenas, por exemplo, S = 19 para o ano de 1983; D — dia 
do mes; M — mes codificado da seguinte maneira: 

M = 1 para Mar 90 , 

M = 2 para Abril, M = 10 para Dezembro. 

M = 3 para Maio, 

Os meses de Janeiro e fevereiro devem ser considerados co- 
mo 11 e 12, respectivamente, mas do ano anterior. Assim, se 
uisermos determinar o dia da semana correspondente ao dia 1 
e outubro de 1983, os valores a serem considerados na f6rmu- 
la sao: D = l,M = 8,S=19eA = 83. Para o dia 1 de janeiro de 
1900, os valores a serem considerados sao: D = 1, M = 1 1, 



S = 18 e A = 99, ja que deve ser considerado o ano anterior a. 
1900, isto e. 1899. 

No caso do mes de fevereiro, para o qual M = 12, esses 
erros sao ampliados de maneira a comprometer completamente 
o resultado final. A avalia 9 So da expressao para M = 12 forne- 
cera o valor 30 para Kl, tanto usando o BASIC dos micros 
TRS-Color, Color 64. como do CP-500. 

Esta fdrmula exige a exatidfo do resultado, nao admitindo 
erro de especie alguma. Por isso, se ela tiver que ser avaliada 
computacionalmente, usando-se a linguagem BASIC, devera 
ser tornado um cuidado muito especial na codifica 9 ao da 
expressao. De fato, a subexpressdo INT (2,6 * M - 02) nao 
deverd ser codificada como: 

Kl = INT ( 2.6 * M - 0.2 ) (2) 

Ja foi visto que o valor 0.2 ndo pode ser representado de 
maneira exata em BASIC (ver artigo “O Erro de Truncamento 
em BASIC”. MS 24, set/83). 

O valor 2.6 tambdm, quando convertido pa ra a b ase 2, se 
transforma num racional. representado por 10.1001, onde o 
tra 90 acima dos algansmos 1001 indica que eles se repetem in- 
definidamente. Portanto, na expressao anterior, tanto 2.6 co- 
mo 0.2 tern representa^es internas em BASIC com erro de 
truncamento. 

K2 = INT ( ( 26 * M - 2)/10) (3) 

Mas esta expressao pode ser codificada na subexpressao a 
seguir, onde o problema do erro de truncamento foi completa- 
mente evitado: 

Nos mesmos microcomputadores, para M = 1 2 o resultado 
fomecido para K2 foi 31, mostrando assim que a fdrmula (2) 
conduz a resultado erroneo para o mes de fevereiro. Para os 
demais meses, ambas as fdrmulas fornecem o mesmo resul- 
tado. 

A expressdo entre colchetes, na fdrmula (1), pode ser nega- 
tiva. Neste caso, o resto da divisao tambem serd negativo. A 
esse valor negativo deverd ser adicionado o valor 7, para se 
obter o dia da semana correto. £ o caso do dia 1 de janeiro de 
1 903, em que D = 1,M = 11, S = 19eA = 2. Para estes valores, 
a expressao entre colchetes tern valor -3, o mesmo acontecen- 
do com o resto da divisao por sete. Portanto, o dia da semana a 
ser considerado para esta data 6 f = 4, isto e, quinta-feira. 

AJdm de 2.6 e 0.2, existem infinitos valores que tambem 
sao penalizados na linguagem BASIC. Por exemplo, o leitor po- 
dera notar que dentre os seguintes valores decimals: 0,1; 0,2; 
0,3; 0,4; 0,5 ; 0,6; 0,7; 0,8 e 0,9, apenas o valor 0,5 tern repre- 
senta 9 ao exata. Todos os demais, quando convertidos para a 
base 2, se transformam em numeros racionais, sem representa- 
9 ao exata em BASIC. 

SEGUNDO EXEMPLO 

Existem algumas fdrmulas que podem ser avaliadas manual- 
mente sem problema algum, mas que computacionalmente 
sua avalia 9 ao se torna invidvel. £ o caso, por exemplo, da de- 
termina 9 ao do valor de ti atravds da formula de Leibnitz 
(1674). 

ii ■» 

* - 2 ♦ 16 ( + + 

1 * 3*5 5 * 7*9 

1 1 

♦ ♦ + > ( 4 ) 

9 * 11*13 13 * 15*17 

Por se tratar de um irracional, o valor de tt nunca podera 
ser determinado de maneira exata, mesmo considerando m- 
fmitas parcelas. A determina 9 ao manual de um alor aproxima- 
do de tt seria trivial, mas trabalhosa, pois, considerando duas 
centenas de parcelas, chegamos a uma aproxima 9 ao aceitavel 
do valor. 

A avalia 9 ao da expressao (4) foi feita para diferentes com- >y 
putadores. Para mostrar que os grandes computadores tambem M 
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apresentam o mesmo problema, a avaliagao foi feita num IBM 
4341, com sistema operacional OS/MVS. Neste computador, 
usando a linguagem FORTRAN, com precisdo simples, a me- 
lhor aproximagao encontrada foi 3,14153481. Surpreendente- 
mente, este valor £ bastante abaixo de urn mais exato conheci- 
do: 3,14159 26535 89793 23846. 

Na linguagem FORTRAN deste computador, os valores 
reais de precisao simples s2o representados na base 16, ao con- 
trdno da base 2 usada no BASIC. De maneira analoga, o valor 
real 6, portanto. colocado na forma: 0,Xyyyyyy yyyy 16 n , 
onde X e um algarismo da base 16 diferente de zero e yyy... 
sSo algarismos quaisquer da base 16. A mantissa 6 represen- 
tada em 24 bits (3 bytes). A caracteristica, que 6 o valor re- 
sultante da soma de 64 ao expoente efetivo de 16,d armazena- 
da em 7 bits. 0 sinal ocupa um bit especial. 

Em BASIC, na aritm^tica de precisao simples do CP-500, a 
mesma avaliagdo da expressSo (4) conduziu a uma melhor 
aproximagao. 0 valor encontrado para tt foi 3,14158. 

No caso do computador IBM, o resultado Final aproximado 
foi obtido ap6s consideragdo das pnmeiras 64 parcelas da ex- 
pressdo. NSo ha razao para a consideragao de um maior nume- 
ro de parcelas, pois o resultado final permanece estacionano. 
Ja no caso do CP-500, o resultado Final, tambem estacionano, 
foi obtido com um numero um pouco maior de parcelas. 
aproximadamente 90. 

Esta mesma avaliagdo sendo feita no TRS-Color ou Color 
64, por contar com maior numero de algarismos significati- 
vos que o CP-500, resultou em melhor aproximagao. Ao con- 
siderar 90 parcelas, o resultado foi 3,1415 7731, valor um pou- 
co abaixo do conespondente obtido no CP-500. Levando em 
consideragao ccm parcelas, o valor encontrado foi 3,1415 
8022. 

No caso do TRS-Color ou Color 64, um maior numero de 
parcelas podera ser considerado, com a obtengao de uma me- 
lhor aproximagao. Mas neste caso tambem, a partir de um cer- 
to valor, a consideragao de parcelas adicionais nao surtird efei- 
to algum. A possibilidade de uso da antmetica de precisao du- 
pla, possivcl nos computadores IBM 4341 e no microcompu- 
tador CP-500, somente adia o instante em que a aproximagao 
permanece estaciondria. 

Em todos estes casos, o mstante em que o resultado perma- 
nece estaciondrio £ aquele no qual o valor da parcela a ser con- 
siderada passa a ser menor do que o erro de truncamento. 0 
valor de tt , portanto. com um maior numero de algarismos 
significativos do que a melhor aproximado apresentada, nao 
poderd ser obtido pelos computadores (mesmo nos macrocom- 
putadores). Esta avaliagao somente podera ser feita manual- 
mente, com lapis, papel e muita paciencia. 

TERCEIR O EXEMPLO 

Os dois exemplos anteriores apresentam uma visSo pessi- 
mista sobre o problema da precisao. £ preciso levar em conta, 
entretanto, que estes exemplos foram propositadamente es- 
colhidos, por utilizarem valores que sSo penalizados na repre- 
sentagSo computational. Mas, consideremos agora um exem- 
plo onde 6 apresentada a visSo otimista. 

Dentre os valores inteiros, todos aqueles menores que 
16.777.215 (CP-500) ou 4.294.967.295 (TRS-Color e Color 
64) tern representagao interna precisa em BASIC. Todos os 
inteiros acima deste mdximo, em geral, senam penahzados pelo 
erro de truncamento, com alguns algarismos significativos sen- 
do ignorados. Entretanto, existe uma infmidade dentre esses 
valores que ndo sdo penalizados e podem ser representados 
de maneira exata. 

Por exemplo, todos os valores multiplos de 256, quando 
convertidos para a base 2, apresentam os oito algarismos 
(bits) menos significativos iguais a zero. Na representado com- 



putational, esses bits poderiam ser ignorados, sem que houves- 
se perda de algarismos significativos. J d os multiplos de 4096 
apresentam na base binana os 16 bits menos significativos 
iguais a zero. 

Como pode ser visto, 256 e 4096 sao potentias exatas de 2. 
O primeiro valor corresponde a 2 elevado a oitava potencia, en- 
quanto o segundo, a potencia 12. Assim sendo, de modo geral 
todos os valores que sdo multiplos de uma potencia exata de 
2 sao valores favorecidos na aritm^tica empregada pela lingua- 
gem BASIC. 

Um calculo elementar em que estes valores privilegiados sdo 
empregados e a determinagao do fatorial de um numero n 
(produto dos numeros naturais de um atd n). Os valores de fa- 
tonal de 10 e acima dele sao todos multiplos de 256 e, portan- 
to, sao favorecidos pelo BASIC. Usando o BASIC do CP-500, 
em precisao simples, foram obtidos os seguintes resultados: 

10! = 3.62880 E+06 12! = 4.79002 E+08 

11! = 3.99168 E+07 13! = 6.22702 E+09 

De uma maneira geral, podemos contar garantidamente no 
CP-500 apcnas com sete algarismos decimals significativos. 
Mas, como se pode observar, o fatorial de 1 1 foi calculado cor- 
retamente. apesar de o resultado conter oito algansmos signi- 
ficativos. O fatorial de 12. apesar de ser um numero privilegia- 
do por apresentar nove algarismos decimals significativos, jd e 
um valor aproximado. 

No BASIC do TRS-Color e Color 64, podendo contar com 
maior numero de algarismos significativos, os resultados apre- 
sentados foram um pouco melhores: 

10! = 3628800 13! = 6.2270208 E+09 

11! = 39916800 14! = 8.71782912 E+10 

12! = 479001600 

Neste micro computador, o fatorial de 12 ainda 6 apresenta- 
do sem o uso da notagdo cientifica. O fatorial de 13, cujo va- 
lor correto € 6.227.020.800, apesar de conter 10 algarismos 
decimals significativos, ainda d calculado corretamente, contra- 
nando a regra geral que garante atd nove algarismos. Valores 
acima de 13 jd sdo apresentados de maneira aproximada e seu 
calculo exato somente podera ser feito manualmente, com 14- 
pis e papel. 

Bern, para concluir, gostana de dizer que toda essa exposi- 
gao visou apenas a despertar a atengdo do leitor para a precisdo 
no calculo computational. Pelo fato de a precisdo ser depen- 
dente dos valores numdricos considerados, se favorecidos ou 
penalizados pela representado escolhida pela linguagem BA- 
SIC, fica dificil, atd quase impossivel, estabelecer regras que 
sejam umversalmente aplicdveis. 

Apenas como recomendagdo, o leitor deverd fugir sempre 
do problema do erro de truncamento se isso for possivel, como 
no caso do primeiro exemplo. Na sua impossibilidade, tentar 
minimizar ao mdximo o seu efeito, ou concluir pela inviabili- 
dade da soludo computational, como no segundo exemplo. 
E, apos a obtengao dos resultados finals, somente considerar os 
algarismos significativos com os quais garantidamente se pode- 
rd contar. 
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CURSOS DE APERFEiqOAMENTO 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc6 o mais moderno ensino 
tecnico programado e desenvolvido no Pa(s. 





CURSO DE 

PROGRAMAQAO EM BASK 



Este CURSO, especialmente programado, oferece os 
fundamerttos de Linguagem de ProgramacJo que domma o universo 
dos microcomputadores. DmSmicoe abrangente. ensma desde o BASIC 
bdsico ate o BASIC mais avanpado, inclumdo nocoes b^sicas sobre 
Manipulacao de Arquivos. T4cnicas de ProgramagSo, Sistemas de 
Processamento de Dados. Teleprocessamento. Multiprogramacao e 
T^cnicas em Linguagem de Maquina, que proporcionam um grande 
conhecimento em toda a irea de Processamento de Dados 



KIT CEDM Z80 
BASIC Cientlfico. 

KIT CEDM Z80 
BASIC Simples. 

Gabarito de Fluxograma 
E 4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 




CURSO DE 



ELETRONICA E MJDIO 



Metodos novos e ineditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova ligSo. apostilas ilustradas 
ensmam tudo sobre Amplificadores. Caixas Acusticas. Equalizadores. 
Toca-discos. Sintonizadores AM/FM, Gravadores e Toca Fitas. Capsulas 
e Fonocaptadores. Microfones, Sonorizagao. InstrumentagSo de Medidas 
em Audio. T^cnicas de Gravagao e tambem de ReparagSo em Audio. 



CEDM-1 • KIT de Ferramentas. CEDM 2 • KIT Fonte de AlimentagHo 
♦ 15-15/1A. CEDM 3 • KIT Placa Experimental 
CEDM-4 - KIT de Componentes. CEDM-5 • KIT Pre-amplificador 
Est^reo- CEDM 6 • KIT Amplificador Estereo 40w. 



Voce mesmo pode desenvolver um ritmo prdprio de estudo. A lin- 
guagem simplificada do* CURSOS CEDM permite aprendizado Well. E 
para esclarecer qualquer duvida, o CEDM coloca A sua disposigSo uma 
equipe de professores sempre muito bem acessorada. AI4m di*so, voefl 
recebe KITS preparados para os seus exerefeios prdticos. 

Agil, moderno e perfeitamente adequado A nossa realidade, os CUR- 
SOS CEDM por correspondence garantem condigdes ideais para o seu 
aperfeigoamento profissional. 



GRATIS 



Voc§ tambem pode ganhar um MICROCOMPUTADOR. 



Telefone (0432) 23-9674 ou cotoque hoje 
mesmo no Correio o cupom CEDM. 

Em poucos dies voefi recebe nossos catdlogos de apresentagao. 



I Avenida S«o Paulo. 718 - Fone (0432) 2^9674. 

LLUI 9 CAIXA POSTAL 1642 -CEP 86100 - Londrina - PR 
CURSO DE APERFEIQOAMENTO POR CORRESPONDENCIA 

Soliclto o mais r^pldo possivel InformagSes sem comprom isso sobre o 
CURSO de 



CEP 











Ler, entender e escrever programas, tanto 
em BASIC quanto em ASSEMBLER, sao ati- 
vidades bastantes recompensadoras quando 
quem as pratica dispde de conhecimentos e 
instrumentaqao adequadas. 

MICRO SISTEMAS sempre se preocupou com 
o lei tor iniciante, e aqueles que sempre nos 
prestigiaram ganham, a partir desse numero, 
um presentao: um sistema utilitdrio capaz de 
fazer maravilhas e, ainda por cima, comen- 
tado passo a passo. Os I i mites de sua utili- 
zaqao sao os limites alcan^ados pela prdpria 
imaginaqao do usudrio. 

Entao, prepare o micro e maos b obra. 



O s programas para os micros 
com ldgica Sinclair t 6 m se 
tornado, a cada dia, mais so- 
fisticados. Uma boa olhada 
nos ultimos numeros de MICRO SIS- 
TEMAS ird comprovar esse fato. 

Saber program ar ou conhecer uma in- 
ninidade de linguagens nSo 6 suficiente 
para escrever bons programas. £ preciso 
antes, ser usudrio do equipamento para 
o qual se quer criar um sistema. Sob es- 
se aspecto, a linha Sinclair 6 a que tern 
apresentado os melhores resultados, da- 
da a grande quantidade de usudrios e a 
excelente capacidade de didlogo entre 
seus vdrios segmentos. 

Mas nem tudo 6 um “mar de rosas” 
A literatura ainda 6 escassa e ndo raro 
enganosa. Listas de instrufOes do As- 
sembler Z80 sfo vendidas como “saiba 
tudo sobre a linguagem de mdquina do 
seu micro”, numa nitida explorafdo da 
boa fd do consumidor. Programas “fan- 
tdsticos”, vendidos a prefos fabulosos e 
que podem ser encontrados nas revistas 
de computadores, tern causado uma re- 
tra^do na produfdo independente de 
software. Ningudm quer se arriscar a um 
embate cujo resultado todos jd sabemos, 
ou melhor, ningudm estd disposto a en- 
cher os bolsos alheios e ver frustrada a 
sua iniciativa particular. 

Por outro lado, os fabricantes nSo di- 
vulgam informa^oes tdcnicas na mesma 
velocidade e propor?ao com as quais 



prometem novos e maravilhosos equipa- 
mentos (cada um mais desconhecido e 
misterioso que o outro). 

No final, o usudrio acaba perdido e, 
se a sua for^a de vontade nSo for gran- 
de, ele acaba desistindo de tudo, vende 
o micro e compra um videogame, pois, 
com certeza, nao terd tantos aborreci- 
mentos e serd decididamente muito mais 
divertido. 

Pordm, para aqueles que acreditam 
ser possivel desenvolver um bom traba- 
lho com poucos recur sos, MICRO SIS- 
TEMAS inicia nesse numero o projeto 
MICRO BUG. Trata-se de um sistema 
utilitdrio que serd desenvolvido, em lin- 
guagem de mdquina, passo a passo com 
o leitor, esclarecendo e discutindo as 
formas de programa 9 ao utilizadas e o 
conhecimento tdcnico envolvido no pro- 
jeto. 

0 MICRO BUG, como produto final, 
se traduzird num programa para manipu- 
lar os dados e informa 9 oes contidos na 
memdria do micro. Com ele sera possi- 
vel ler. alterar, interpretar, gravar, co- 
piar, criar, imprimir, compilar, reescre- 
ver, analisar e compactar programas, 
tanto em Basic quanto em Assembler. 

No entanto, antes de nos aventurar- 
mos nessa jornada audaciosa, sera preci- 
so discutir alguns conhecimentos bdsicos 
e ate mesmo alguns “hdbitos saudaveis”, 
que serao indispensdveis no decorrer do 
projeto. 



O MANUAL DO EQUIPAMENTO 



Apesar de conter poucas informagOes, 
ser nSo raro incompreensfvel e, aldm 
disso, mal traduzido, o manual que 
acompanha o equipamento d, ainda as- 
sim, o primeiro grande elo entre o equi- 
pamento e o usudrio e nunca deve ser 
esquecido em cima de uma estante ou 
dentro de uma gaveta. Ele deve ser lido 
infinitas vezes, pois a cada leitura certa- 
mente uma duvida se dissipa. Em espe- 
cial os ultimos capitulos, sobre a organi- 
za 9 do do sistema, devem ser literalmente 
devorados e entendidos, caso contrdrio 
todo nosso esfor 90 terd sido em vdo. 

A maior parte dos equipamentos da 
linha Sinclair (NE Z8000, TK82-C, 
TK83, CP 200 e TK85) possuem ma- 
nuals compatfveis entre si, ou seja, tra- 
duzidos do original do ZX81. Todos os 
exercfdos e exemplos, bem como a dis- 
tribui 9 do dos capitulos slo exatamente 
os mesmos, nao importando sobre qual 
equipamento nos referimos. A figura 1 
apresenta uma tabela de compatibilida- 
de entre a nomenclatura das varidveis do 
sistema adotada pelos fabricantes. Esses 
nomes sao apenas mnemonicos e a fun- 
930 de cada endere 90 estd explicada cla- 
ramente no manual; portanto. uma boa 
leitura desse capftulo (V ARIAVEIS DO 
SISTEMA) deve ser uma das primeiras 
providencias a ser tomada. 



VARIAVE IS DO SISTEMA 
tabela de compatibi I idade de 


nomenclatura 


-/Micro 

Slstemas 


enderego 


endere«;o 


NE / 8000 


CP 200 


TK 82C 


decimal 


hexadecimal 








16384 


4000 


ERR NR 


ERRO- 1 


CODR 


16385 


4001 


FLAGS 


FLAGS 


BAND 


16386/87 


4002/03 


ERR SP 


Rt TCSB 


E MSP 


16388/89 


4004/05 


RAMTOP 


MEMTOP 


RTP 


16390 


4006 


MODF 


M0D0 


M0D0 


16391/92 


4007/08 


PPC 




CPB 


16393 


4009 


VERSN 


VERSAO 


VERSN 


16394/95 


400A/0B 


E PPC 


NUML I 


LPC 


16396/97 


400C/0D 


D FILE 


maptfla 


DF ILE 


16398/99 


400E /0F 


DF CC 




POSPR 


16400/01 


4010/M 


VARS 


VARS 


VARS 


16402/03 


4012/13 


DEST 


DEST 


DEST 


16404/05 


4014/ 15 


E LINE 


LID1CIT 


ELINE 


16406/07 


4016/17 


CH ADD 


PROX-CAR 


ENCAR 


16408/09 


4018/19 


X PTR 


XPTR 


ENSX 


16410/11 


401A/1B 


STKBOT 


STKCOM 


PILFUN 


16412/13 


40 10/ ID 


STKEND 


STKF IM 


P1LFIM 


16414 


40 IE 


BERG 


RFCIB 


CAL REG 


16415/16 


40 IF/ 2*0 


MEM 


MEM 


MEM 


16417 


4021 


n usado 


fi usado 


n usado 


16418 


4022 


DF SZ 


DF-SZ 


DF SZ 


16419/20 


4023/24 


S TOP 


PROG TOP 


L10P 


16421/22 


4025/26 


LAST K 


ULTIMAT 


UL TK 


16423 


4027 








16424 


4028 


MARGIN 


MARCEN 


HARC 


16425/26 


4029/2A 


NXTLIN 


PRXLIN 


PXLN 


16427/28 


402B/2C 


OLDPPC 


LINCONT 


VCPB 


16429 


4020 


FLACX 


FLACX 


BANDX 


16430/31 


402E/2F 


STRLEN 


COMSTR 


LENCA 


16432/33 


4030/31 


T ADDR 


ENDSTX 


SXEN 


16434/35 


4032/33 


SEED 


SEED 


SEMT 


16436/37 


4034/35 


FRAMES 


FRAMES 


QUAD 


16438 


4036 


COORDS 


C00RDX 


CORDX 


16439 


4037 




C00RDY 


CORDY 


16440 


4038 


PR CC 


L PBYTE 


PR-CC 


16441 


4039 


S POSN 


COL UNA 


COL PR 


16442 


40 3A 




LINHA 


LINPR 


16443 


40 3B 


CDF LAG 


FLACCD 


BANCO 


16444 a 16476 


403C a 405C 


PRBUFF 


BUT IMP 


PRBUF 1 


16477 a 16506 


405D a 407A 


MFMBOT 


MEMBOT 


MF MRO 


16507/08 


407B/7C 


n usado 


n usado 


n usado 



Figura 1 - Uma tabela de compatibilidade de varidveis que deve ser mantida sempre d mao 



Ainda a respeito de leituras, alguns te, pois contem boa parte da teoria e in- 
artigos publicados em MICRO SISTE- formacdes tdcnicas ae que iremos pre- 
MAS merecem ser relidos atenciosamen- cisar. (Veja na bibliografia). 



Com relafao a livros, nSo 6 aconse- 
lhdvel gastar fortunas neles, pois a maio- 
ria nSo contdm nada aldm de listagens 
das instru 96 es do Z80; pordm se o leitor 
desejar aprofundar-se no Assembler, o 
unico livro digno de recomenda^o 6 o 
Z80 ASSEMBLY LANGUAGE PRO- 
GRAMMING (Lance A. Leventhal — Os- 
bome/McGraw Hill). Trata-se de um ma- 
nual tdcnico, pordm completo e bastan- 
te claro, mesmo sendo em Ingles. 



EXPAN SOES DE MEM6RIA 



Ainda hd muita confusdo no mercado 
a respeito das expansdes de mem 6 ria e 
muita “terra prometida” ndo 6 de fato 
encontrada. Jd foi dito (O SISTEMA 
OPERACIONAL DO ZX81, MS n9 25) 
que a quantidade mdxima de RAM ado- 
tada pelo projeto da SINCLAIR d de 
16 K. Isso ndo significa que seja impos- 
sivel implementar mais do que 16 K, po- 
rdm quem assim o fizer poderd encon- 
trar sdrios problemas operacionais pela 
frente. 

0 primeiro grande problema diz res- 
peito d efetiva quantidade de memdria 
que poderd ser utilizada. Para ficar bem 
clara a explica 9 do, acompanhe-a pela fi- 
gura 2, onde dividimos os 64 K, que d o 
mdximo de endere^os permitidos por 
uma UCP de 8 bits e endere 9 amento de 
2 bytes, em grupos de 8 K. 

0 primeiro grupo 6 a ROM conten- 
do o Sistema Operacional. Nesse local 
jamais poderd ser colocada a RAM dispo- 
nfvel, pois nesse caso o micro simples- 
mente nao funcionaria. No grupo 2 hd 
um espa 90 vazio onde nSo existe absolu- 
tamente nada, apenas um “reflexo” do 
Sistema Operacional. £ possivel colocar 
nesse local a memdria RAM, pordm ela 
estard fora do sistema e somente servi- 
rd para rotinas em linguagem de mdqui- 
na ou arquivo de dados operado pelas 
instru 9 <Ses POKE e PEEK. 

Os grupos 3 e 4 compreendem a me- 
m 6 ria RAM normal de 16 K e 6 nesse es- 
pa 9 o que estarfo as varidveis do sistema, 
o programa em BASIC, o arquivo de 
video, as varidveis do programa, o stack 
do Z80 e as rotinas Assembler. Os gru- 
pos restantes (5, 6 , 7 e 8 ) ndo estao li- 
vres para utiliza 9 ao e se neles for colo- 
cada a memdria RAM, ela somente po- 
derd ser utilizada para armazenar va- 
ridveis. Dessa forma, equipamentos com 
32K, 48K ou mesmo “64K” de RAM 



® 8192 16384 24576- 32768 40960 49152 57344 65536 



1 ROM 


2 


3 RAM ' 4 


1 RAM 1 


5 


6 


7 


8 


SISTEMA 

OPERACIONAL 




EXPANSE DE 16K 











000® 2000 4000 6000 8000 A000 C000 E000 0000 



Figura 2 - A distribuifao do enderegamento da Z80 e as reais dreas de aproveitamento da memdria RAM 
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6 soil into NAD E PROBLEMA $ 

nao importa o tamanho de sell problema, 
nos temos a soluoao na medida exata ! 




LINGUAGEM BASIC 
16 K DE MEMORIA 
V E LOCIDADE DE 
TRANSFERENCE 14 VE- 
ZESMAIS RAPIDA 




“ P-- 



MODULAR 
LINGUAGEM BASIC 
48 K DE MEMORIA 
COM PAT IV EL COM 
SOFTWARE DO CP-500 



S-600 




MICRO: 



LINGUAGENS COBOL. 
BASIC E FORTRAN 
64 KDE MEMORIA 
DUAS UNIDADES DE - 
DISCO 



IMPRESSORA: 

• VELOCIDADE 130 CPS 

• MATRIZ 7x9 

• 132 COLUNAS 

• ORIGINAL +5 COPIAS 



AC ESSO RIOS 



SOFTWARE • MESAS • DIS 
QUETES • ARQUIVOS • 
FORMULARIOS CONTl'- 
NUOS • ESTABILIZADORES 
DE TENSAO • UNIDADES 
DE DISCO FLEXIVEL • ETC. 




CP-500 





LINGUAGEM BASIC 
48 K DE MEMORIA 
ATE 4 DRIVES 
SAIDA PARALELA SE- 
RIAL 




VELOCIDADE 100 CPS 
MATRIZ 9x7 
INTERFACE: 
PARALELA 
SERIAL 




VELOCIDADE 200 CPS 
MATRIZ 7x9 
INTERFACE: 
PARALELA, 

SERIAL 



tracador 

grAfico 




• 8 PENAS 

• Area de tracado 
10 x 15 POL. 

• INTERFACE RS232 



filcres 

Filcres Importagao e Representa^oas Ltda. 

Rua Aurora. 165 - CEP 01209 - Sao Paulo - SP 
Telax 1131298 FILG BR - PBX 223-7388 - Ramai* 2. 4, 

12. 18. 19 - Diretos: 223-1446. 222-3458. 220-5794 a 
220-9113 - Reembolso — Ramai 17 Dirato: 222-0016 — 220-7718 
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somente terSo disponfveis 16K para pro- 
gramas BASIC ou Assembler. 

De fato, os grupos 5, 6, 7 e 8 JA- 
MAIS poderSo center program as em 
BASIC ou Assembler pelo simples fato 
de que nessa regiao eles nSo funciona- 
rio. A explicafdo tdcnica para esse fato 
serf dada no tdpico 0 ASSEMBLER 
DO SINCLAIR. 

ENDEREQO E CONTEUDO 

Todo usudrio que pretende a van far 
um pouco mais na programafdo deve 
dominar plenamente os conceitos de en- 
derefo e conteudo, pois sdo eles os fun- 
damentos da funcionalidade do compu- 
tador. 

Entende-se por enderefo um local da 
memdria capaz de reter uma certa quan- 
tidade de bits (ou seja, zeros e uns). Co- 
mo cada grupo de 8 bits configura um 
byte, entfo um enderefo 6 um local on- 
de pode ser armazenado um byte e, des- 
sa forma, um determinado enderefo po- 
de ter o seu contetido na forma de um 
valor no intervalo entre 0 e 255. 

Os bytes, nesse intervalo, podem sag- 
nificar uma s^rie de coisas, dependendo 
do contexto em que forem lidos. Eles 
podem ser a penas um valor de referen- 
da, um numero de linha de programa 
BASIC, uma letra a ser impressa, um 
conjunto de flags ou uma instrufdo As- 
sembler, ou ainda parte de um valor nu- 
meric© qualquer. 

Saber o que cada byte esti represen- 
tando em um dado momento, ou em um 
determinado local da mem6ria, nada 
mais 6 do que entender melhor o fun- 
donamento da miquina. 



caracteristicas dessa base, e para isso a 
prdpria MICRO SISTEMAS jd publicou 
excelentes artigos. 

Para aqueles que querem se aprofun- 
dar no Assembler, entfo a base a ser uti- 
lizada deve ser a hexadecimal, pois pro- 
gramar com numeros em hexadecimal 6 
sensivelmente mais fdcil do que em de- 
cimal. 

Como jd vimos, um byte represen- 
ta um valor entre 0 e 255. Vejamos en- 
tSo alguns desses valores nas tres bases 
envolvidas: 



hexadecimal 



binario decimal 

00000000 0 

00000001 1 

00000010 2 

00001010 10 

10101111 175 

11111111 255 



Como podemos notar, com 8 bits 
nSo 6 possfvel representar um valor 
maior do que 255 porque nao hd mais 
“casas” para serem ocupadas, e se obri- 
garmos o Z80 a somar 1 ao valor 255, o 
resultado serd zero e todo o processo se 
repetird. 

Para a manipulagdo de valores maio- 
res serd preciso lanfar mdo de 2 bytes, e 
dessa forma a faixa de valores ficard 
bem mais extensa. Veja o exemplo a se- 
guir: 

00000001 00000000 = 256 = 0100 

podemos, e devemos, dividir tambdm os 
numeros decimais pelo m6dulo 256 e o 
resultado serd o apresentado na figura 3. 



binario 


decimal 


hexadecimal 


valor 


00000001 00000001 


1 1 


01 01 


257 


00000001 000000 10 


1 2 


01 02 


258 


00000111 11000000 


7 192 


07 C0 


1984 


01000000 10000010 


64 130 


40 82 


16514 


11111111 11111111 


255 255 


FF FF 


65535 



Figure 3 

NtJMEROS E BASES NUM£RICAS 

Quern programa apenas em BASIC 
ndo precisa se preocupar com bases nu- 
mdricas, pordm o usudrio que busca um 
relacionamento mais intimo com o com- 
putador certamente terd que se enten- 
der com pelo menos mais duas bases. 0 
bindrio nSo requer um conhecimento 
profundo, visto que o proprio compu- 
tador se encarrega das conversSes envol- 
vidas, pordm 6 necessdrio ver algumas 

MICRO SISTEMAS. abril/84 



Novamente, pordm, chegamos ao li- 
mite de valores e dessa vez o limite 6 pra 
valer. Se prestarmos atenflo ao numero 
65535, veremos que se considerarmos 
o zero como um valor, entfo com dois 
bytes poderemos representar 65^36 va- 
lores. Dividindo essa quantidade por 
1 .024, que 6 o m6dulo KILO BYTE, o 
resultado serd 64K. Isso explica o fato 
do Z80 s6 permitir o enderefamento 
de 64K de memdria pois em toda ope- 
rafdo com enderefos ela usa sempre dois 
bytes. » 



Agora, com as interfaces 
TL 85 e TL 300, voce ja pode 
ligar o seu micro TK 85, TK 83 
e CP 300 em uma impressora. 



i 



TL 85 



Interface que complementa 
seu TK 85 ou TK 83. ampliando largamente 
a aplicag So do mesmo. 

• aciona qualquer impressora ou mdquina 
de escrever eletrdnica, com comunica- 
gdo paralela Centronics; 

• aceita todos os comandos relacionados 
com impressora (Copy, Llist, Lprint); 

• gera maiusculas, minusculas. acentos 
e controles do ASCII, diretamente do te- 
clado; 

• permite a conexSo de outras expansdes. 

Versao com Editor Facllimo de usar; orien- 
tado para lingua portuguesa; gravado em 
EPROM; marginafSo automdtica; separa- 
fdo sildbica e outros recursos. 




TL 300 _ 

Acionada pelos comandos de impres- 
sdo, a interface TL 300 possibilita a ligag do 
do CP 300 a qualquer impressora ou md- 
quina de escrever eletrdnica. com comuni- 
cagdo paralela Centronics. Permite, ainda, 
a expansdo do sistema, oferecendo condi- 
fOes para que o micro aceite outros perifd- 
ricos. 

jjj^k Tekno 
_ Logica 

Produtos e Serviqos para a 
Informatica Ltda. 

Av. Sdo Pedro, 1062 - Fone (0512) 42-8549 
90000 Porto Alegre - RS 

Distribuidores 

Sdo Paulo: Pr6-Controle Com. e Controle 
Ltda. • Fone (0192) 32-7364 - Campinas 
Goids e Distrito Federal: 

New Computadores Comdrcio e 
Representagdes Ltda. 

Fone (061) 274-5060 - Brasilia 
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MICRO BUG 32768 




Figure 4 -Otopo da RAM e o posicionamcnto do Micro Bug. O RAMTOP foi alterado para reccber as rotinas e manic-las fora do sistema. 
protegidas at 6 mesmo do NEW 



A facilidade da base hexadecimal estd 
no fato de que com ela nSo 6 preciso 
fazer contas para representar um nume- 
ro de dois bytes, ou seja, enquanto 
1984, em decimal, 6 igual a 7*256+192, 
ou melhor, INT (1984/256) seguido de 
1 984-INT( 1 984/256)*256, em hexade- 
cimal o mesmo numero 07C0 6 igual a 
07 e CO. 



0 ASSEMBLER DO SINCLAIR 



A programa 9 ao em linguagem de ma- 
quina 6 cheia de nuances e sutilezas, que 
variam de equipamento para equipamen- 
to. Conhecer a linguagem Assembler n3o 
credencia ningu£m a escrever programas 
em equipamentos com 16gica Sinclair, 
ou mesmo em qualquer outro equipa- 
mento, visto que £ fundamental conhe- 
cer a fundo a sistemdtica da mdquina em 
questSo. Na realidade, o Assembler nffo 
£ uma linguagem para ser aprendida e 
sim entendida. Qualquer pessoa capaz 
de somar e subtrair pode escrever pro- 
gramas em Assembler, bastando para is- 
so muita paciencia, pois £ a unica coisa 
exigida do programador. 

De resto, £ suficiente uma lista das 
instruijSes disponiveis, o que, diga-se de 
passagem, consta do manual do equipa- 
mento. 

Vejamos entao algumas particularida- 
des important issimas. 0 Assembler pos- 
sui por volta de 694 instru 9 des ofidais 
e mais umas 438 nSo divulgadas pelo fa- 
bricate (ver artigo AS INSTRUQOES 
SECRETAS DO Z80, Jorge Mendes - 
MS 25) por£m nem todas elas poderao 
ser utilizadas. 0 fato da UCP, nos mi- 
cros Sinclair, ser obrigada a fazer todo o 
trabalho obrigou os programadores a 
criar rotinas complexas e a utilizar de 
forma bastante criativa todas as poten- 
cialidades do Z80. 0 pre 90 pago por isso 
foi uma redu 9 So significativa das instru- 
9 des que realmente podem ser utiliza- 
das em programas criados pelos usua- 
rios. 



Boa ou ma S0IU9S0, o fato £ que o 
Assembler do Sinclair tornou-se bastan- 
te restrito e impos ao usudrio a necessi- 
dade de uma boa dose de criatividade 
para contomar os obst£culos. Por outro 
lado, ele tornou-se uma linguagem fa- 
cilima de ser entendida. 

Dois important es grupos de instru- 
96 es, as instru 95 es de endere 9 amento in- 
dexado IX e IY, nSo podem ser utiliza- 
dos quando um programa Assembler 
opera no modo SLOW, pois o sistema de 
impressao no video os utiliza para gerar 
e manter a imagem na tela da televisao. 
Os registradores altemativos tamb£m 
merecem um cuidado muito especial 
pois a sua utiliza 9 ao pode provocar a 
perda de controle de todo o sistema. 

Outro ponto importante £ que o 
Z80 nunca poder£ estar em modo de 
execu 9 ao ou procura de instru 9 ao 
(FETCH) acima do endere 90 32.767, 
pois esta £ a caractenstica da interrup- 
9 ao geradora do vfdeo. Na realidade, o 
que ocorre £ que , para formar uma ima- 
gem na tela de video, o sistema obt£m o 
valor de D-FILE (16396/97), “seta” o 
bit 15 (A15=l) e executa opera 90 es de 
“refresh” at£ formar uma imagem. Des- 
sa forma, se a mdquina for acidental- 
mente colocada para execu 9 So de uma 
instru 9 §o Assembler ou linha de progra- 
ma BASIC acima dos 16K de RAM, ha- 
verd perda total de controle do sistema. 



- “Z80A E ZX81, UMA PODEROSA 
COMBINAQAO” (Milton Cabreizo - 
MS n9 17) 

- “OK MICRO, VOCE VENCEU”(Rui 
Cezar Torres — MS n9 21) 

- “ESCONDENDO 0 JOGO NO TK 
82” (Ronaldo de Almeida Santos — 
MS n9 22) 

- “PEQUENAS MEMORIAS, GRAN- 



O MICRO BUG 



0 MICRO BUG formard um sistema 
modular de manipula 9 ao da memdria do 
micro. Ele serd composto por um geren- 
ciador (SGM) e por mddulos especifi- 
cos. A figura 4 apresenta 0 esquema de 
funcionamento de todo o sistema. 

0 equipamento padrao para o funcio- 
namento do MICRO BUG serd um mi- 
cro com expansao de 16K de RAM e o 
sistema ocupard o espa 90 no topo da 
memdria (RAMTOP). O SGM manterd, 
nessa drea, as principais rotinas fundo- 
nais bem Como os comandos de grava- 
930 e leitura dos mddulos. Al£m disso, 
possuird alguns comandos especfficos 
que o tomarao, sozinho, um potente 
monitor Assembler. 

Toda a estrutura funcional do MI- 
CRO BUG serd apresentada e discutida e 
no final o usudrio poderd, ele mesmo, 
construir o seu modulo operacional es- 
pecifico. 

£ importante salientar que, dada a 
diversidade de formas com as quais os 
programas em Assembler se apresentam, 
esse trabalho servira como padroniza 9 do 
de todo o material que vier a ser publi- 
cado pela MICRO SISTEMAS. 



Este projeto vem sendo desen volvido pete 
equipe do CPD de MICRO SISTEMAS, sob a 
coordenagSo de Rena to Degiovani. 



DES ECONOMLAS” (Renato Degio- 
vani - MS n9 22) 

- “UM MONITOR ASSEMBLER PA- 
RA 0 TK 82” (Jos£ Carlos Niza - 
MS n9 23) 

- “ABRINDO ESPAQO NA TELA” 
(Renato Degiovani — MS n9 24) 

- “0 SISTEMA OPERACIONAL DO 

ZX81” (Renato Degiovani - MS 
n9 25, 26 e 27) ■ 
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RINGO R 470 CHEGOU A CIDADE. 

OS OUTROS MICROS QUE SE CUIDEM. 




0 microcomputador Ringo R470 a, disparado, o melhor em sua calegona E mais rdpido na execugAo de programas, oferece ampias possibllldades de 
expansdo e 6 o unlco micro totalmente projetado e desenvolvido no Brasil, aprovado pela S0 • Secretana Especial de Informdlica. 

Um verdadeiro herd! nacionai. 

Voce pode contar com ele para resolver problemas pessoais ou profissionais, ou simpiesmente para se divertir, atraves de vdrios logos disponiveis em 
cartuchos ou titas. 

Alias, cartucho a o que nto falta oara o Ringo. Ele a compatrvel com todos os programas do tamoso Sinclair e possui equipamentos perifartcos 
exclusivos que ampliam muito a sua capacidace 

Compare o Ringo R-470 com os similares e comprove: nunca apareceu um micro pessoal tdo profissional por estas redondezas. 



CARACTERlSTlCAS TECHICAS: 

• linguopm Bate • ottgos do mfcjulfta 240 

• I H eita ROM on 16 K BytM 

• 16 KByiw RAM npndhel pn 48 K ftytos 

• UlUUM «n qu*)u(r TV P&B ou com 
•ConeclocpnJorstWiQogosi 

• TocKdo uoo QWERTY com 49 tocia • iS6 HnfAoa - tocias 4t «K6 o 
imowmenisc*o d« cunor * cormeto) com rtpe»cJo automates 

• E*du**s tod* do mwrsio Ha ridoo 

t T«ia com 24 Nnftas o» 32 colunm on mto 



• Ro****ocrltea 64 1 44 pMi mdadi grtfc* podondo m ng*r ions 
mam M 256 1 IB quvtio utmado com catucftos 

■ Mllf tWrna tiO^An triminnaiiilr M limnoflwun m ■ Imm ma 

9 L4K6P09 •'TIWIpCOI. v 

• Cam*** +noi»i Sod' rprogmv *Sc*nos «m ROM • edunoi 

• VoioddsM 6o grara^ki om dtt cmmm Z400 BPS 
EXPANSES: 

• Gwta do EPROM pn grant odiUr t coo* cwgma *m emtuefto 

• ••M'-aca pn ir^naaon ou mlqumo de esemm o*Ma 

• S*ntoJtado» do oo>v 

• M00B4 tComncac6o MtoMmca 1 200 8ouO» 



A »*oda nos toias esoooaiuaoas em microi. 
lotovidM-eom o grander mogoorm. 

NAo oncontrando o Ringo nostes locals, ligue ova 
217.8400 (SP) ou toil) 80Q 8441 o 000 W42|Oulras 
locVxlodes do BrasJq DOD gratuito 

X3NGO B-W 

0 micro quo acotts dtufkw. 

Riba do Brasil Lids. - DmsAo informatics 
TeWi (011) 34673 RMsBR 
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Junior. 0 micro prodigio. 



lunioreo novo micro da Itauta. Uni micro ditcreiiciado, avanvado. cxdu- 
sivona Mia t’aixa. Uni micro prodigin. Junior cum produto da tain ilia 
|-7 oihi. |*oriamo. compatiwl com o prdprio |-7f H k ). Unico no gcncro a scr 
compatiwl. tamlvm.com C V M I o linicocom capacid.uk* dccvoluir para 
ccjuipamcntos ilc major porte da propria Itauta. dc acordocom o dc sen col- 
s' i men to do usu.irio Junior c projeto lon% nacional. !<*>".. Itauta Uma 
g.irantia decisiva dc permanence assistein; ia. Junior nao esta so/inlio: a Itauta 
crioti Ukla lima mfra-cstrutura cm lun^ao dele. Sao maisdc U»t* softwares 
t.i ik*scnvolvuloscc.italogado.s.c muitos ouiros 
cm pcrinancnte desen volvi memo. 



I scritdrios regionais. uma rede nacional 
ile a* ve i u lei lores. ( vntro Ediic.icion.il c 
( 'cut rode Atendunento ao Usu.irio 
I uni m>mc tjuc sc cuinpromctcu, desde 
o inu io. a garancir a continua evolu^ao 
da intdrmatica nacional. Junior. 

A Itauta est.i orgultlosa deste prodigio. 













Itautec 
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_ A Microsoft tern 120 programas em fitas e disquetes a sua disposipao 

Sao sistemas aplicativos para acompanhar e agilizar os negdcios 

de sua empresa. E tamb6m jogos eletronicos para vocS e sua familia 

se divertirem muito. Todos especiais para TK-83, TK-85, 

TK^20 00, AppleUe compativeis. E todos com a mesma qualidade - 

dos 100.000 programas jd vendidos em todo o Brasil: 

■ "Procure o revendedor Microsoft mais proximo (se nao encontrar os • 

programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000- 
. Pau|o-SP). Voc6 encontrar^ os mejhores programas da sua vida_| 




Enxadrista experiente, Luciano Nilo de An- 
drade j4 escreveu para os jornais "Correio da 
ManhS". “Data News" e " Ultima Hora" e pa 
ra a revista "Fatos & Fotos". Luciano 6 econo 
mista, trabalhando no Minister to da Fazenda, 
no Rio de Janeiro. As opinioes e coment&rios 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
putadores, astarSo sempre presen tes em 
MICRO SISTEMAS. 



Elite A/S vence 

o Campeonato Mundial de Micros 



N o exemplar de fevereiro, MICRO SIS- 
TEMAS nP 29. divulgamos nesta se- 
pSo as primeiras notlcias obtidasa res- 
peito do III Campeonato Mundial de 
Micros. Agora retornamos com a sua comple- 
mentap§o. 

O Elite A/S, da Fidelity Electronics, EUA, 
venceu o III Campeonato Mundial de Progra- 
mas de Xadrez para Micros, realizado em Bu- 
dapeste, Hungria, no perfodo de 13 a 20 de 
outubro de 1983. Esta 6 a terceira vitbria dos 
programas do casal Spracklen. Eles tamWm 
venceram os dois eventos anteriores com mi- 
cros da Fidelity, sempre com a ajuda do Ml 
Baczynskyi, dos EUA. 

A vitbria do Elite nSo foi sem sustos. Esca- 
pou de derrota que parecia certa frente ao 
Novag X na 4. a rodada (ver diagrama A) e de 
outra mais sutil contra o Super Constellation 
(ver diagrama B). 

Os resultados individuals do Elite A/S fo- 
ram: 1? rodada, de brancas, venceu o Mephis- 
to Excalibur; 2? rodada, de pretas, venceu o 
Logichess 2.2; 3 ? rodada. de brancas, venceu 
o Mephisto X; 4? rodada. de brancas, empa- 
tou com o Novag X; 5. a rodada, de pretas, ven- 
ceu o 2001 X; 6? rodada, de brancas, venceu 
o Super Star X. 

E curioso notar que o Elite custa, aproxi- 
madamente, metade do Prestige, mesmo usan- 
do o mesmo programa e sendo do mesmo fa- 
bricante. 0 Elite tern 3 MHz e o Prestige, com 
seus 4 MHz, ficou em quinto lugar. Coisasdo 
sistema sulpode emparceiramento? O terceiro 
aparelho da Fidelity a competir foi o Sensory 
9, que, por sua vez, classificou-se em 12P lugar. 



classificaqAo FINAL 

Dezoito programas participaram do cam- 
peonato. Cada fabricante podia competir com 
at6 tres modelos diferentes. Foram realizadas 
sete rodadas e o emparceiramento foi feito pe- 
lo sistema sufpo. 

Campeao - Elite A/S, da Fidelity Electro- 
nics, EUA; programadores: Cathe e Dan Spra- 
cklen. auxiliados pelo Ml Boris Baczynskyi, 6 
pontos. 2P - Mephisto X, de Hagener e Glaser, 
Al. Fed.; programadores: Elmar Hener e Tho- 
mas Nitsche, auxiliados pelo enxadrista Ossi 
Weiner, 5 pontos (+ 29). 39 — Novag X, da 
Novag, Hong Kong; programadores: David Kit- 
tinger, EUA. auxiliado pelo Ml Scott Me Do- 
nald. 5 pontos (+ 27,5). 4P — Super Constella- 
tion, da Novag, Hong Kong, 5 pontos (+ 25). 
5P - Prestige, da Fidelity Elect., EUA, 4,5 pon- 
tos. 6P — Chess 2001, da Intelligent Software, 
Hong Kong; programadores: David Levy e Kevin 



O'Connel, 4 pontos (+ 26). 79 - G6d6on X, 
4 pontos (+12,5). 8P - Chess 2001 X, da In- 
telligent Software, Hong Kong, 3,5 pontos 
(+27). 9P - Mephisto Y, 3.5 pontos (+ 24). 
10? — Mephisto Excalibur, 3 pontos (+ 29,5). 
IIP — Constellation, 3 pontos (+ 24). 12P - 
Sensory 9, 3,5 pontos (+ 23,5). 13P - Super 
Star X, 3 pontos (+ 22). 14P — Micromurks. 
2,5 pontos. 15P — Logichess 2.2, 2 pontos 
(+ 26). 16P - Chessmaster, 2 pontos (+ 21). 
17P - 65 Cyrus X. 2 pontos (+ 15,5). 18P 
— Labirint, 0,0 pontos. 

A VITORIA DO ELITE 



Elite A/S x Novag X 



Diagrama A 
- Posifao 
depoisde 70 

- ... Cg4 

As pretas, que poderiam ganhar com faci- 
lidade, empataram depois de 71-C7C+ R2B; 
72 - C5B C4R;73 — C3R P5C.74 — C5B R3C; 
75 - C3C R2B; 76 - C5B R1C; 77 - R3B 
R2B; 78 — R4D e acabaram empatando por 
repetipao de posipao. 



Elite A/S x Super Constellation 




i 

□ 



I Al 

e 



Diagrama B 



As pretas empataram depois de 82 — ... 
R3D(7); 83 - B4B R5R; 84 - B1C Rf5(?). 
Perdem a segunda oportunidade de iniciar a li- 
nha ganhadora. 85 — B6C R 3C ; 86 — B4D R48; 
87 — B6C e a partida terminou empatada por 
repetipao. Como poderiam as pretas ganhar? 
Simplesmente jogando 82 — ... R6B II; 83 — 
T2B+ DxT+; 84 - BxD RxB. 85 - P5B 
R6B; 86 - R1C ou 86 - R8T RxP. As pretas 
tamb4m ganhariam depois de 82 - ... P4B !; 
83 - R1T R6B\, entrando na variante anterior. 



UMA PEQUENA COMBINAQAO 



Prestige x Super Constellation 
Budapeste, 1984 



Diagrama C 
-As brancas 
jogam e 
iniciam 
irresi stive I 
combinafao 
( solufdo no 
final do 
artigo) 




O CALCANHAR DE ACHILES 



Sem dispor de tempo caseiro, ilimitado, os 
micros deixam escapar vitbrias como qualquer 
capivara. £ na fase final do jogo que se torna 
mais flagrante esta debilidade. Verdadeiro cal- 
canhar de Achilesl 



Constellation x Prestige 




Diagrama D 



As pretas acabaram de jogar 69 — ... P4CI 
e as brancas continuaram com 70 — P5T(?) 
R7T; 71 - R4C R7C; 72 - R5B RxP; 73 - 
R6C R5B; 74 - RxP P5C; 75 - R7C P6C; 
76 - P6T P7C; 77 - P7T P8C = D +; 78 - 
R7B D7T+; 79 - R6C D5D e ganham. As 
brancas poderiam empatar facilmente com 70 
- PxP\ PxP; 71 - P4C\ R5B; 72 - R2T RxP, 
73 - R2C. conseguindo a oposipao e o empate. 



Solupao 

•Luejeuopueqe seiajd se a mgg — e 

«P<a +D x d - Z‘1*0 1891 - i : 3 eiuejBejQ 
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WT PAGAMENTO. 



PREQO 



PROGRAMA 



Controle de Estoque 



Mala Direta c/ Ed. Texto 25 

Contas a pagar/receber 15 

Tesouraria (c/saldo bancSrio) 15 

Credttrio 30 

Contabilidade 30 

Voce encontra esses e outros programas em nossos 
revendedores credenciados. 



/i/tema/ 



Av. Rio Branco, 45 grupo 131 1 — CEP 20090 
Tel.: (021) 263-1241 - Rio de Janeiro - RJ 



Calcular as dosagens certas dos produtos necessaries 
para manter a 4gua de sua piscina sempre 
limpa 4 o que faz este programa para a I inha TRS-80 



ctp/mL 

ou Como Tratar Piscinas no Micro 



Fernando Cesar de Oliveira Ga/li 



N ada melhor do que ter uma pis- 
cina em casa, mas quando ela 
comega a escurecer, surge uma 
preocupagdo: trocar a dgua ou 
fazer urn bom tratamento? Trocar a 
dgua envolve maiores gastos e ainda por 
cima a reposigdo e demorada, donde se 
conclui que 6 bem mais vantajoso optar 
pelo tratamento. 

No tratamento, pordm, as dosagens 
tern que ser corretas, variando conforme 
o volume de dgua da piscina, e ai surge 
outro problema: voce terd que calcular 
direitinho as dosagens de cada produto 
de acordo com as dimens5es de sua pis- 
cina — e no Idpis isso se torna muito 
cansativo. 

Mas para todo problema sempre 
existe uma solugdo. Se voce tern um mi- 
cro compativel com o TRS-80, com este 
programa bastard entrar com as medidas 
de sua piscina e seu computador fard os 
cdlculos por voce. Sdo eles: 

• Dosagens didrias ou semanais — Para 
evitar que a dgua fique turn ou verde. 
• Decantagao para aspirar — Para recu- 
perar a dgua jd infestada pela sujeira. 
• Corregao do PH - Com um estojo de 
teste 6 feita a medigSo do PH. 0 nivel 
ideal 6 entre 7.2 e 7.6: abaixo de 7.2, o 
cloro toma-se instdvel, sendo consumido 
muito rapidamente ; acima de 7.6, a dgua 
6 alcalina e o poder anti-bacteria do clo- 
ro 6 reduzido. 

• Superdosagens - Quando a dgua esti- 
ver verde (com algas) ou em desuso por 
muito tempo. 

Rode o programa que ele 6 auto-ex- 
plicativo e ... bom fim de semana, com 
muita sombra e dgua f re sea! 



Fernando Cisar de Oliveira Galli 6 estudante 
de Ciincias Contibeis na Instituiqao Moura 
La cerda de Ribeirao Preto. Apron deu a tin- 
guagem BASIC em seu CP -500, que possui hi 
oito meses. 



Tratamento de piscinas 



1 0 ************************************************************ 
20 *********** TRATAMENTO DE PISCINAS - CP-500 ************ 
30 '* FERNANDO CESAR DE OLIVEIRA GALLI * 

40 '* R. FRANCA 1047 - RIBEIRAO PRETO (S.P) CEP 14100 * 

50 ************************************************************ 

60 CLEAR 1 000 : DEFSTRA-K : CLS :GOSUB670 
70 CLS :GOSUB720 : PRINT4&274 , "Formato de sua piscina ? 

80 PRINT@40 1 , " ( 1 ) " ; STRINGS ( 16,95) ; " RETANGULAR 
90 PRINT@529 , " ( 2 ) M ; STRINGS ( 16,95) ; " OVAL 
100 PRINT@657 , " ( 3 ) " ; STRINGS (16,95);" REDONDA 
110 PRINT@(7 86 , "Entre c/ numero correspondente 
120 K= INKEYS : IFK=" " , 1 20ELSEIFK " 1 "ORK s " 3" , 1 1 0 
130 CLS : Y=VAL ( K ) :ONYGOSUB260 , 310,360 
140 CLS:M=INT(M) :IFM<-0,60 



450 PRINTTABI 16) "DECANTACAO PARA ASPIRAR 

460 PRINT: PRINT"SULFATO DE ALUMINIO "M*60" gramas 

470 PRINT: PRINT" BARRILHA LEVE "M*30" gramas 

480 PRINT: PRINT" Dissolva os produtos em recipientes separados, 
espalhe unif ormemente , apos 24 horas faca a aspiracao. 

490 RETURN 

500 PRINTTABI 16) "CORRECAO DE PH": PRINT 
510 INPUT"Qual o PH atual ";T 

520 I FT <6 . 5 , PH= 1 5 . 8ELSEIFT<=6 . 8ANDT>=6 . 5 , PH= 1 2 . 7 
530 I FT <7 . 2ANDT>6 . 8 , PH=9 . 5 

540 I FT >8 . 4 , PH= 1 9ELSEIFT<=8 . 4ANDT>=8 , PH= 12.7 
550 IFT<8ANDT>7 . 6 ; PH=6 . 5 

560 IFT<=7 . 6ANDT>=7 . 2 ,G="PH NORMAL" : H= " " 

570 I FT >7 . 6 ,G="PH ALCALINO" : H="grs/Barr . leve" 

580 IFT<7 . 2 ,G="PH ACIDO " : H="grs/Sulf . aluminio" 

590 PRINT : IFH= " " , PRINTGELSEPRINTG , PH*M ; H 
600 RETURN 

610 PRINTTAB( 16) "SUPERDOSAGENS 

620 PRINT: PRINT" ALGICIDA "M*16" CC 

630 PRINT"CLORO LIQUIDO"M*50" CC":PRINT 

640 PRINT" Use superdosagens de. algicida p/ matar as algas ;remo 
va-as por aspiracao; use cloro p/ desinfetar e clarear. 

650 RETURN 

660 POKE 16916,0: IFZ = 5 , 70ELSECLS : END 

670 PRINTCHRS (23) : A=STRING$ I 32 , 35 ) : FORX= 1 T0 1 4 : PRINT; A : NEXT 
680 Z=400 : FORX= 1T04 : PRITN@Z , STRINGS ( 1 6 , 1 28 ) ; : Z=Z+64 : NEXT 
690 PRINT@470; "Tratamento" ; :PRINT®534 ; "de piscina"; 

700 FORT= 1 T03 : X= 302 : GOSUB750 : PRINTCHRS ( 28 ) ; :k=300 :GOSUB750 
710 PRINTCHRS (23);: NEXT : RETURN 
720 FORQ= 1 5498T0 15541 : POKEQ ,143 
730 POKEQ+ 76 8, 143: NEXT: RETURN 

740 PRINT®274,"> > Entre c/ as medidas" : RETURN 

750 FORX=0T0400:NEXT: RETURN 



rtf' 

& 
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Microcenter Informatica Ltda. 

Rua Dr. Satammi 12-A Ti|uca^ 
TEL 228-0593 e 264-0143 



150 PRINTTABI 10) " <1> DOSAGENS DIARIAS E SEMANAIS 
160 PRINTTABI 10)" <2> DECANTACAO P/ ASPIRAR 
170 PRINTTABI 10) " <3> CORRECAO DE PH 
180 PRINTTABI 10) " <4> SUPERDOSAGENS 
190 PRINTTABI 10) " <5> NOVO CALCULO 

200 PRINTTABI 10)" <6> FIM" ; TAB ( 38 ) " * * * VOLUME "M" m3 *** 
210 PRINTSTRINGS (64,45) :POKE16916,7 

220 PRINT@9 35 , "Sua opcao > .> 

230 J= INKEYS : IFJ = " "ORJ < " 1 "ORJ>"6" ,2 30 

240 CLS : Z=VAL( J ) :ONZGOSUB400 ,450,500,610,660,660 

250 GOTO220 

260 PRINT@62, "PISCINA - RETANGULAR" :GOSUB7 40 
270 P&INT@389 , "Comprimento (em metros )";: INPUTN 
280 PRINT©5 1 7 , "Largura (em metros )";: INPUTO 
290 PRINT@645 , " Prof undidade (em metros )";: INPUTP 
300 M=N*0*P : RETURN 

310 PRINT@6 2, "PISCINA - OVAL" :GOSUB74 0 
320 PRINT@>389 , "Diametro maior ( em metros )";: INPUTN 
330 PRINT@5 1 7 , "diametro menor (em metros )";: INPUTO 
340 PRINT@645 , " Prof undidade (em metros )";: INPUTP 
350 M=N*0*P* . 785 : RETURN 

360 PRINT@62, "PISCINA - REDONDA" :GOSUB740 

370 PRINT6089 , "Diametro ( metros )";: INPUTN 

380 PRINT@5 1 7 , "Prof undidade ( metros )";: INPUTO 

390 M=N/2*N/2*3. 1 4 1 6 *0 : RETURN 

400 PRINTTABI 16) "DOSAGENS DIARIAS E SEMANAIS 

410 PRINT: PRINT" ALGISTATICO . . "M*14" CC/ Dosagem inicial 

420 PRINT: PRINT"ALGISTATICO. . . "M*6" CC/semana 

430 PRINT: PRINT"CLORO LIQUIDO. "M*25" ml/dia 

440 RETURN 



DOSAGENS DIARIAS E SEMANAIS 
DECANTACAO P/ ASPIRAR 
CORRECAO DE PH 
SUPERDOSAGENS 
NOVO CALCULO 

FIM" ;TAB( 38 ) "*** VOLUME "M" 



A Nasajon Sistemas, uma empresa 
especializada no desenvolvimento de 
programas, esta lanpando no mercado, 
em cardter exclusivo, um completo 
sistema de Folha de Pagamento para 
microcomputadores dos tipos 
DGT 1000, CP 500, TRS 80 e outros. 
Relatorios emitidos: Rela^ao de Em- 
pregados, Quadro de Horarios, Folha 
de Pagamento, Resumo da Folha, Re- 
lapao de FGTS, Guiade FGTS, Rela- 
gao de I.R., Guia de IAPAS, Relagao 
p/Banco, Recibo de Pag to., etc. 
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A geracao 
Radio Shack 




TRS-80 Modelo III: o mais vendido 



Quando ainda nao se falava objetivamente em micros nessa fatia de mercado. E a Radio Shack continuou 
pessoais nos Estados Vnidos, a entrada em cenado TRS- causando tmpacto ao oferecer modelos e mais modelos 

80 Modelo I da Radio Shack joi um marco decisivo em todas as possiveis configurates do momento. Os 

na format; do do mercado americano dos computadores micros Tandy Radio Shack cruzaram front etras e.aqut no 

para o lar. 0 primeiro passo estava dado , outros Brasil, aportaram em vdrias versoes tropicais. Com 

seguiram a mesma trilha e, posteriormente, o sucesso o mesmo impacto dos Estados Vnidos, os micros TRS 

alcan(ado por essas pequenas e geniais maquinas na brasileiros mantiveram a t radi;ao de seus 

sociedade americana, fez com que grandes companhias parentes americanos: ser campeoes de vendas no 

( inclusive a IBM ) passassem a investir seriamente mercado dos pessoais. 



f e eu der um negocio desses de Natal 
a minha mulher, ela vai pensar que 
eu figuqei mahico”. Assim reagju o 
Presidente da- Radio Shack, Lou Kornfeld.ao 
Ihe apresentarcm o protdtipo do primeiro 
computador pcssoal comercializado com 
exito no mundo, o TRS-80 Modelo I, em 
1976. 

As duvidas e o ceticismo de Komfeld, 
compartilhados por outros dentro da orgam- 
zagSo tin ham, nao obstante, sua razao de ser. 
Afinal, naquela epoca os computadores ainda 
eram vistos como maquinas com plica das, aces- 
siveis apenas a um seleto grupo de iniciados 
no assunto. Como, entao, podena o compu- 
tador transform ar-se num produto de massa? 
Que utilidade real poderia oferecer aos seus 
compradores? 

Essa pergunta foi, inicialmente, diffcil de 



responder, sobretudo pelo fato de que todo o 
software disponivel naquele momento resu- 
mia-se na linguagem Tiny BASIC e num mo- 
desto jogo de Blackjack armazenado em fita 
cassete. Essas dificuldades, no entanto, nao 
diminuiram o entusiasmo da cquipe liderada 
por Don French, o homem que idealizou o 
TRS-80. 

A pnmeira coisa a fazer para tomar o pro- 
duto bcm-sucedido no mercado, perceberam 
logo os idealizadores do Modelo I, seria es- 
crever um manual capaz de ensinar aos ini- 
ciantes - de maneira srmples e clara, mas ao 
mesmo tempo sem Ihes insultar a inteligencia 
— como operar o computador. 

Outro problema enfrentado e que na Ra- 
dio Shack - gigantesca empresa do ramo de 
componentes e produtos eletronicos - nin- 
guem conhecia a fundo a linguagem BASIC. 



A soluijao foi contratar os servi^os de um es- 
pecialista, o Dr. David A. Lien, que relem- 
bra, em artigo publicado na edi$ao de aniver- 
sano da revista 80 Micro em 1983, como nas- 
ceu o BASIC Nivel 1 : "Passamos (David Lien, 
Don French e Steve Leininger, outro integran- 
te do projeto) o dia todo sentados aquela me- 
sa redonda. Eu examinei uma lista exaustiva 
de palavras de BASIC e expliquei suas possibi- 
lidades. Dispunhamos apenas de 4 K de ROM 
e tivemos, entao, que decidtr quais palavras 
incluir no interpretador BASIC. Pareda uma 
tarefa impossivel, mas. no fim do dia, o BA- 
SIC Nivel I era uma realidade”. 

O sucesso do Modelo I no mercado norte- 
americano - e logo a seguir em outros pai'ses 
- n£o tardou a vir, incentivando a Radio 
Shack a fazer diversos outros lan^amentos que 
permitem a empresa, hoje, ostentar a maior e 
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mais compltta linha de produtos da industria 
de microinformatica, incluindo hardware, 
software e acessorios. 

O BASIC Nivel I evoluiu para o Nivel II, 
bem mais completo e poderoso, e passou a 
equipar o Modelo II. Sistema de uso essen- 
dalmente comerdal, com memoria RAM de 
32 ou 64 K, 32 caracteres cspeciais para grd- 
ficos comerciais, o Modelo II trabalha com ate 
quatro drives de 8”, face e densidade dupla 
(numa capacidade total de 2 Mb) ou, ainda, 
quatro discos winchester de 8,4 Mb cada. 

Dentro dessa linha de sistemas grandes de 
aplica 9 ao comerdal, a empresa Ian?ou tam- 
bem o Modelo 16, com dois processadores: 
Motorola MC68000, de 16 bits e clock de 6 
MHz, e Zilog Z80A, de 8 bits e clock de 4 
MHz. 

Compatfvel em software com o Modelo II, 
o principal destaque desse modelo e a sua ca- 
pacidade de processamento em modo multi- 
usuario, que lhe permite operar com ate dois 
terminais de dados executando simultanea- 



mente programas diferentes. 

Em contraste com essas maquinas de gran- 
de capaddade - entre as quais temos ainda o 
Modelo 12, capaz de formar uma rede de au- 
toma^ao de escritono composta de ate 255 
micros - a Radio Shack oferece os Pocket 
Computers, com tamanho de calculadora, mas 
desempenho de computador. O Modelo PC-1 
tern linguagem Pocket Computer BASIC, si- 
milar ao BASIC Nivel 1, 1 1 KB de ROM e 1,9 
KB de RAM. 

Bastante maior, mas ainda de grande por- 
tabilidade, em virtude de suas reduzidas di- 
mensoes e baixo peso, o Modelo 100 6 mais 
poderoso que os seus irmaos menores e incor- 
pora caracteristicas que muitos sistemas de 
maior porte nao tern, tais como modem em- 
butido. Sua memoria vai ate 32 K RAM, e o 
video e de cristal liquido com matriz de 240 
x 64 pontos. O equipamento dispoe ainda de 
interfaces paralela, serial e para cassete e, a 
exemplo dos PCs, tern memoria permanente 
mantida por batenas. 



No segmento de uso domestico e lazer, a 
Radio Shack esta presente com o Color Com- 
puter. O equipamento e fomecido em varias 
versdes, com diferentes capacicjades e aplica- 
?6es, entre elas, a de funcionar como terminal 
de videotex to. A memoria RAM vai de 4 a 32 
K, enquanto que a ROM pode ser de 4 K, no 
caso de se utilizar o Color BASIC, ou 16 K, 
exigidos pelo Extended Color BASIC, que 
permite o uso de ate quatro drives de 5 1/4". 

Dentre esses modelos, no entanto, os mais 
populares s£o os I (250 mil instalados) e III 
(100 mil unidades vendidas nos dois primei- 
ros anos). 

Lansado em 1980 para substituir o Mode- 
lo I (que teve, em conseqiiencia, encerrada a 
sua produQio nos EUA), o Modelo III tern 
muita coisa em comum com o seu anteces- 
sor, tanto que e vendido em duas versoes: a 
mais simples (e barata), que utiliza o BASIC 
Nivel 1 de 4 K, do modelo anterior, e a mais 
sofisticada, com o BASIC Nivel II de 16 K 
ROM. 



Modelos I e III: 

uma questao de compatibilidade 



N a aparencia externa, o Modelo III 
reune num so gabinete diversos pe- 
rifericos que eram separados no Mo- 
delo I, tais como o video, drives, expansao de 
memoria etc. Ambos utilizam o microproces- 
sador Z80, mas as velocidades diferem: 1,77 
MHz (Mod. I) contra 2,08 MHz (Mod. III). O 
tipo (monocromatico, fosforo branco), for- 
mato (16 linhas de 64 caracteres) e resolu?ao 
grafica (128 x 48 pontos) do video sSo os 
mesmos. De diferente, o Modelo III apresenta 
os caracteres minusculos e um conjunto bas- 
tante amplo de caracteres altemativos (alfabe- 
to japones, letras graficas, algumas figuras de 
jogos, etc.). 

No teclado, tambdm, nem tudo e igual: o 
Modelo I nfo tern bloco nume'rico separado, 
enquanto que no III as teclas SHIFT da direi- 
ta e da esquerda podem ser encaradas como 
teclas separadas. O Modelo I aceita ate duas 
unidades de cassete, com velocidade de trans- 
missJo de 500 bauds. O Modelo III permite 
apenas um cassete, mas a velocidade de trans- 
missio, selecionada por software, pode ser de 
500 ou 1500 bauds. Ambos gravam os arqui- 
vos de dados em 500 bauds, mas os programas 
em linguagem de mdquina que utilizam o cas- 
sete como arquivo de dados, nao serao compa- 



tfveis nos dois modelos, uma vez que os ende- 
re$os das rotinas de cassete nao sSo exatamen- 
te os mesmos. 

O acesso a impressora, no Modelo I, e fei- 
to por um endere^o de memoria. enquanto 
ue no III e feito atraves de uma das portas 
o processador. Isso faz com que os progra- 
mas em linguagem de mdquina que tern as 
suas propnas rotinas de impressao (Scnpsit, 
Edtasm, etc.), ndo utilizando, assim, as rotinas 
existentes na ROM do computador, nao sejam 
compativeis nos dois modelos. O Modelo III 
permite ainda que se cancele uma impressao, 
bastando apertar o BREAK; no Modelo I, o 
computador flea totalmente travado, restando 
apenas a possibilidade de apertar o RESET. 

£ nos discos que reside, talvez, a principal 
diferen^a entre os dois modelos. O Modelo 1 
utiliza drives de densidade simples, com for- 
mata^ao de 35 trilhas de 10 setores de 256 
bytes, num total de 89600 bytes. O Modelo 
III usa drives de densidade dupla, com forma- 
ta?ao de 40 trilhas de 18 setores de 256 by- 
tes, totalizando 184320 bytes, mais do que o 
dobro. £ quase impossivel trabalhar num Mo- 
delo I com apenas um drive, pois apenas o sis- 
tema operacional e o BASIC-Disco utilizam 



quase todo o espago disponivel no disquete. 
Logicamente, o acesso aos discos e feito de 
modo bastante diferente. Dessa forma, pro- 
gramas em linguagem de ma'quina que utili- 
zam as rotinas do sistema para acessar os dis- 
cos, serfo certamente incompati'veis nos dois 
modelos. 

No Brasil o quadro 6 um pouco diferente: 
em termos de programas em BASIC, ndo com 
rela?5o ao BASIC-Disco, a compatibilidade vai 
depender somente do sistema operacional uti- 
lizado: o TRSDOS dos Modelos I e III 6 bas- 
tante diferente, mas os outros sistemas - co- 
mo o DOSPLUS, o LDOS, NEWDOS e MUL 
TIDOS, por exemplo - oferecem virtualmen- 
te os mesmos comandos aos dois modelos. Ja 
nos programas em linguagem de mdquina, as 
dificuldades sSo maiores, pois, grande parte 
dos endere?os utilizados n£o coincidem nos 
dois modelos. 

Em rela^o aos compativeis nacionais, as 
diferengas entre os Modelos I e III sao bem 
menores. O DGT-1000, por exemplo, e um 
Modelo I, mas tern drives de densidade dupla 
e 40 trilhas, alem do teclado nume'rico sepa- 
rado, enquanto que praricamente todos os 
modelos aqui fabricados apresentam carac- 
teres minusculos no video. 



O mercado brasileiro 



Q uando falamos em mercado brasileiro 
da linha TRS-80, nos limitamos ao 
TRS-80 Modelo I e TRS-80 Modelo 
III, os micros da familia americana 
que possuem versoes tupiniquins. O Modelo I 
por ter sido o primeiro microcomputador a 
ser lan?ado nos Estados Unidos por uma com- 
panhia de grande porte de comercializaqao, a 
Tandy Corporation, garantiu um equipamen- 
to dc baixo preijo e facilmente cncontrado nas 
6 mil lojas Radio Shack. O Modelo III por ser 
um projeto mais aperfei^oado que o primeiro 
e ter se tornado, sem diivida, um recordista de 
vendas no concorrido mercado norte-america- 



no, rcsultou numa alta disponibilidadc de 
software. 

Atualmcnte, no mercado brasileiro. temos 
dois micros compativeis com o primeiro mo- 
delo da familia TRS: DGT-1000, da Digitus e 
JR Sysdata, da Sysdata. O Modelo III possui 
mais representantes nacionais: CP-500 e 
CP-300, da Prologica; Naja, da Kemitron e o 
mais recente lan^amento da Sysdata: o Sysda- 
ta III. Temos tambem os computadores com- 
pativeis com o TRS-Color Computer que, por 
apresentarcm caracterfsticas muito especifi- 
cas, serao tratados a parte em nosso artigo. 

A historia da linha TRS no Brasil se con- 



funde com a propria historia dos microcompu- 
tadores om nosso pais, ja que o primeiro mi- 
cro a surgir no Brasil foi um equipamento da 
familia Radio Shack. A Dismac, fabricante de 
calculadoras eletronicas, no final dc 1980, 
apresentou na Feira de Utilidades Domdsticas, 
em Sao Paulo, o prototipo do primeiro com- 
putador pcssoal nacional: o D-8000. Compati- 
vel com o Modelo I, esse equipamento foi 
apresentado quatro anos depois de seu origi- 
nal ter surgido nos EUA. 

Dois anos depois, a sdrie D-8000 da Dis- 
mac se expande no mercado brasileiro com o » 
D-8001 e D-8002. Entre tanto, por ironia ou ^ 
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nao do destino, a Dismac, primeira a entrar no 
campo de batalha da linha TRS foi tambem a 
primeira a abandonar a luta e optar pelo 
Apple, o que, segundo ela, foi uma “exigenda 
do mercado”. Mas os fabricates que sucede- 
ram a sdric Dismac estao af, investindo em 
seus os fabricantes que sucederam a serie 
Dismac estao af, investindo em seus equipa- 
mentos e acreditando muito no futuro brasi- 
leiro da linha TRS. 

Os CPs da Prologica 



"A linha TRS 6 forte e cstavel. Desde que 
o Modelo III foi lan^ado ele mantem seu lu- 
gar”, afirma S. Carreiro, da Proldgica. O 
CP-500 6 um exemplo disso, lan^ado em abril 
de 1982, ele 6 o primeiro micro nacional intei- 
ramente compativel em hardware e software 
com o TRS-80 Modelo III. Carro-chefe da li- 
nha TRS no Brasil, o CP-500 ja alca^ou a 
maica de 10 mil equipamentos vendidos e foi 
apontado pelos lojistas como o micro da linha 
mais comercializado no Brasil. 

O CP-500 6 o que sc pode chamar de um 
micro integrado, ou seja, cm um mesmo gabi- 
nete estao reunidos o teclado, monitor de vf- 
deo fosforo verde e e spa 90 para at6 doisacio- 
nadores de discos flexfveis. 

Quatro configura9oes - todas com 48 
Kb RAM - podcm ser escolhidas para esta 
miquina. Na configura9ao mais simples, ele 
vem com interface para cassete, interface 
paralela para impressora e um gravador casse- 
te. Numa segunda versao, ele pode vir com 
uma unidadc para disquetes de 5 1/4” e siste- 
ma opcracional DOS 500. Nas outras duas 
versdes, o CP-500 opera com duas e com qua- 
tro unidades de disquetes. 

Projetado para atingir, principalmente, 
uma faixa de publico formada por profissio- 
nais e pequenas empresas, o CP-500 atende 
tamb6m o segmento hobbysfa e domestico, 
mas em esc ala bem menor, fundamentalmente 
pelo fator pre9o. Procurando preencher esta 
fatia do mercado, entre o microcomputador 
de aplica9oes domesticas e o professional, a 
Prologica lan90u, em junho de 1983, o 
CP-300. 

Sendo totalmente compativel, tanto em 
hardware quanto em software, com o CP-500, 
o 300 nasceu baseado em um conceito : a mo- 
dularidade. “Havia uma brecha na linha de 
equipamentos da Proldgica, que saltava do 
CP-200 (linha Sinclair) para o CP-500, explica 
S. Carreiro. “Vimos entao que daria para colo- 
car o 500 numa versao economica, sem drive, 
sem monitor, podendo ser ligado diretamente 
a televisao, com teclado mais simples que o 
professional, sem teclado numerico reduzido, 
isto 6, como um produto modular compativel 
com o CP-500 e com possibilidades de expan- 
sao”. 

Para a Prologica, o CP-300 foi um sucesso 
de marketing, mas a opiniao dos lojistas diver- 
ge nesse aspecto. A posi9ao da Clappy, no Rio 
de Janeiro, 6 de que a demora da Prologica 
em colocar no mercado os perif6ricos que pos- 
sibilitam a exp ansa o do CP-300, descaracteri- 
zou o equipamento no que ele tinha de mais 
importante: versatihdade. Com isso.as vendas 
do CP-300 foram diflcultadas. 

Para a equipe da I maids, em Sao Paulo, ao 
contrario, a op9ao criada pela entrada do 
CP-300 no mercado foi boa, porque abriu o 
leque de op9des do lojista. A loja vem, inclu- 
sive, registrando uma boa comercializa9ao do 
CP-300. M a Compushop, de Sao Paulo, nao 
chcgou a comercializar o CP-300 porque seu 
proprietary, Roberto Riwczes, nao conside- 
rou o CP-300 um produto novo. “Aldm disso”, 
disse ele, “a Compushop nao esta mais reven- 




ainda as rotinas de controle do teclado, o 
tratamento das interrurcdes e a in corpora 9^0 
de uma tecla de “9 . Estas diferen9as, no 
entanto, em nada interferem na compatibili- 
dade dos equipamentos. 

Mas os empresirios mineiros nao ficaram 
por ai. Na ultima Feira de Informat ica, em 
outubro do ano passado, lan9aram o DGT- 
1000. Na verdade o 1000 6 um DGT-100 com 
um novo gabinete, de linhas mais harmonio- 
sas, em poliuretano; teclado numerico reduzi- 
do; video profissional em fosforo verde; maior 
facilidade de expan sao em placas facilmente 
encaixaveis em slots pelo proprio usuario e 
uma interface para cores em alta resolu9§o. 
Com essa ultima, o sistema passa a trabalhar 
simultaneamente com dois videos: o monitor 
normal do micro e um televisor a cores, onde 
se obtera uma resolu9ao de 256 x 192 pontos 
e 16 cores. 



Naja: a versao sofisticada da linha TRS 



dendo os equipamentos da Prologica devido a 
problemas com esse fabricante”. 

Na verdade, a Prologica, considerada a 
quarta industria de microcomputadores do 
pais, sempre suscitou polemica, principalmen- 
te por ser o fabricante nacional que resolveu 
optar pela verticaliza9ao, isto 6 , fabricar ela 
mesma, seus perifericos, principalmente com 
o objetivo de baratear o custo desses produtos. 



A versao mineira 
da Digitus 



Na I Feira de Informatica, em outubro de 
1981, quando o computador ainda era enca- 
rado por muitos como um bicho de sete cabe- 
ijas, uma das novidades era o DGT-100. Com- 
pativel com o Modelo I da Radio Shack, foi 
tabricado por ties mineiros, colegas de Univer- 
sidade, que juntos criaram a Digitus. “O TRS 
6 um computador modemo, de mais recursos, 
com um BASIC mais f6cil tambem, e 6 o mi- 
cro que apresenta a melhor razao entre per- 
formance e custo”, disse Marcelo Batista, um 
dos Diretores da Digitus, ao justificar a esco- 
Iha da empresa. 

O DGT-100, em sua configura9ao inicial, 
compreende a unidade central, um teclado 
alfa-num6rico e uma fonte de alimenta9ao, 
todos contidos no mesmo gabinete, e mais 
uma TV com fun9$o de monitor e um grava- 
dor cassete. 



Depois da consolida9ao do DGT-100 no 
mercado nacional .onde o fato de ter sido es- 
colhido pela Telebras para forma9ao de sua 
comunidade informatizada teve um grande 
peso, a Digitus lan90U no Micro Festival de 
1983, em Sao Paulo, o DGT-101, uma nova 
versao do DGT-100. 

Totalmente compativel com o 100, tanto 
em hardware como em software, o 101 trazia 
ties novidades: incorpora9ao do sistema ope- 
racional CP/M, acessando 64 Kb de RAM, 
monitor de fosforo verde e duas unidades de 
disco. Mas, os usuarios do DGT-100 puderam 
incorporar essas vantagens com a coloca^ao a 
venda, pela Digitus, da interface para unidade 
de disco flexivel, um monitor com tubo de 
fdsforo verde, e a expan sao para CP/M. 

Uma das diferen9as existentes entre o 
TRS-80 Modelo I e o equipamento da Digitus 
6 a maior capacidade de armazenamento das 
unidades de disco flexivel, uma vez que o 
DGT-100 utiliza densidade dupla e o modelo 
da Radio Shack densidade simples. As dife- 
ren9as nao param por af, desde o proprio 
design do microcomputador, podemos incluir 



Os modelos Sysdata 



Colocar no mercado um equipamento da 
linha TRS-80 potente, versitil e com um pre- 
90 razoavel no disputado mercado dos pes- 
soais foi o objetivo da Sysdata quando lan90u 
o JR Sysdata, em abril de 1983. 

Considerado por muitos uma op9ao mais 
barata, o JR da Sysdata 6 compativel com o 
Modelo I da linha TRS, mas apresenta alguns 
incrementos originais. Algumas dessas novida- 
des sao aguardadas pelos usuarios do Junior e 
outras ja estao no mercado, por6m nao sSo 
facilmente encontradas. 

O JR tem na sua UCP, por exemplo, um 
soquete para 2 Kb de memdria ROM ou 
EPROM. Nele podem ser utilizados um chip 
JR Extended BASIC ou um chip para auto- 
start de programas aplicativos, bem como uma 
memdria EPROM gravada pelo usu6rio. 

O teclado do Junior 6 implementado 
atrave's de teclas do tipo chiclete, que 6 uma 
das op9oes, e tambem a melhor encontrada 
pela Sysdata para baratear o pre9o do seu 
equipamento . Entretanto, buscando atender 
a faixa de usuirios que utiliza o micro profis- 
sionalmente, a Sysdata esta comercializando 
um teclado profissional adaptavel. 

Por constatar que a linha TRS 6 a mais 
vendida no mercado brasileiro e.que existe 
uma grande quantidade de sofwtare disponf- 
vel no mercado para essa f am ilia de equipa- 
mentos, a Sysdata continua apostando nos 
modelos da Radio Shack, e lan90u na ultima 
Feira de Informatica, em Sao Paulo, dois 
novos coraputadores: o colorido TColor e o 
Sysdata III, compativel com o Modelo III. 



O Naja e a Kemitron 



Partir da experiencia bem sucedida da 
Radio Shack foi tambe'm a op9ao da Kemi- 
tron, uma empresa de Belo Horizonte, que 
lan90u em outubro de 1982, na II Feira de 
Informatica, o Naja.com software compativel 
com o TRS-80 Modelo III. 

‘‘Optamos pelo Modelo III pela quantida- 
de de software existente no mercado bem su- 
perior aos outros, e pela qualidade do Z80, 
microprocessador bem avan9ado, superior ao 
8085, sendo somente superado pelos de 16 
bits”, afirmou La&rcio Rodrigo de Matos, 
Gerente de Marketing da Kemitron. 

O Naja, com vfdeo de fosforo verde opcio- 
cional, apresenta algumas implementa9des a 
partir do seu compativel da Radio Shack. 
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Um slot interno com seis conectores que dao 
acesso a todos os pinos da UCP foi introduzi- 
do para farilitar as expansoes e tomar o mi- 
cro mais versdtil, aldm.de facilitar o trabalho 
em controle de processos. 



O Sistema de comuta^ao de clock do Naja, 
com a UCP na versao basica, ja trabalha com 
2,0 MHz (que 6 o clock do CP-500) e mais o 
clock de 3,6, tomando-o 70% mais rapido que 
o Modelo III da Radio Shack. A Kemitron 



oferece ainda uma placa que aumenta o clock 
para 4 at6 6 Mhz, o que transforma o Naja em 
um dos micros mais rapidos no grupo dos de 
oito bits, sd superado em velocidade de pro- 
cesamento pelos de 16 bits. 



Perifericos 



E m rela9ao aos perifericos da linha TRS, 
com excecao da Prol6gica, que optou pe- 
la verticaliza9ao, as demais empresas que 
fabricam equipamentos dessa familia optaram 
pelo sistema ae OEM para comercializa^ao de 
9eus perifericos. Sendo assim, a maiona dos 
que existem no mercado para essa linha de 
equipamentos, de uma maneira ou de outra, 
levam a marca do fabricante. 

Desse modo, a rebujao dos perifericos da 
linha TRS que damos a seguir, fomecida pelos 
fabricantes a MICRO SISTEMAS, 6 o proprio 
retrato do que existe no mercado para essa 
familia de equipamentos. 

Proldgica (CP-500): Impressora P-500 (170,29 
ORTNs); Cabo p/liga9ao de impressora 
(13,27 ORTNs); RS 232 C (23,41 ORTNs). 
Digitus (DGT-1000): Expansao 48 Kb (19^5 
ORTNs); Expansao 64 Kb de RAM (33,19 
ORTNs); Cabo para conexao das interfaces 
(8,44 ORTNs); Interface para drive (36,50 
ORTNs); drive de 5 1/4” (108,99 ORTNs); 
Interface para impressora (5,64 ORTNs); Sin- 
tetizador de voz (28,14 (ORTNs); Monitor 
TX 700 P/B (18,10 ORTNs); Monitor TX fos- 



foro verde (23,53 ORTNs); Placa CP/M 
(27,75 ORTNs). 

Sysdata (Jr.): Expansfio 48 Kb (92,37 
ORTNs); Teclado profissional (17,50 
ORTNs); Interface para drive e impressora 
(37,71 ORTNs); drive para 5 l/4’ f (95^7 
ORTNs); Monitor P/B (31,22 ORTNs); Moni- 
tor fosforo verde (34,50 ORTNs); Extended 
BASIC (4,86 ORTNs); Placa CP/M (8,62 
ORTNs). 

Kemitron (Naja): Interface para drive (52,00 
ORTNs); drive de 5 1/4” (120,00 ORTNs); 
RS 232 C (25,00 ORTNs); Placa de clock 4 
MHz (7 DO ORTNs); Placa de clock 6 MHz 
(25,18 ORTNs); Placa CP/M com 64 Kb 
(33,00 ORTNs); Placa de video a cores 
(44,50 ORTNs); Sintetizador de voz (48,30 
ORTNs); Interface de som (5,00 ORTNs). 

Al6m dessa pesquisa feita junto aos fabri- 
cantes, a reportagem de MICRO SISTEMAS 
consultou algumas lojas do Rio de Janeiro e 



de Sao Paulo, oonstatando que realm ente 
todos (ou quase todos) os perifericos da linha 
TRS estao nas r6deas dos fabricantes, a n£o 



ser, 6 claro, as TVs, gravadores e impressoras. 
Vejamos, entSo alguns desses: 

Impressoras: Elebra - Monica 6010 (219,05 
ORTNs); Emilia 8011 (241,38 ORTNs); Emi- 
lia 8031 (494,84 ORTNs); Alice (555 
ORTNs); Elgin MT-130 (434,49 ORTNs); 
Elgin MT-140 (464,66 ORTNs); Isa - EL 
8000 (205, 17 ORTNs). 

TV: TV Philco normal P/B com entrada para 
monitor (19,31 ORTNs); TV Philco com fos- 
foro verde (23,53 ORTNs); monitor Instrum 
fdsforo verde (66,38 ORTNs). 

Gravador: Cassete National com conta giro (o 
mais recomendado). 

Na loja Imares, em Sao Paulo, encontra- 
mos ainda placa de alta resolu9ao grafica para 
CP-500 da PSI (10249 ORTNs); Joystick 
para CP-500, da Corsirio, (7,96 ORTNs); e 
light-pen, da Prisma (1 1 ,46 ORTNs). 

Na Clappy, no Rio de Janeiro, al6m dos 
perifericos ja enumerados, sao comer cializa- 
dos uma Placa CP/M para CP-500, da Progus 
(28,96 ORTNs) e outra Placa CP/M, tambem 
para CP-500, da Microsol (42,24 ORTNs). 



Assistencia tecnica 



A assistencia tecnica 6 encarada pelos 
fabricantes nacionais da familia TRS 
como questao de primeira ordem. 
Talvez por isso, a maioria optou por fomece- 
rem eles mesmos assistencia aos seus equipa- 
mentos ou, no mdximo, credenciar poucas 
empresas no seu Estado e mais algumas fora 
dele, simplesmente pela incapacidade natural 
de atender usuarios de outras regides. 

Enquanto os fabricantes mantem um posi- 
cionamento centralizador, resta as empresas 
nSo credendadas lutar com seus proprios 
meios. Quando se trata de grandes firmas, a 



coisa fica mais ficil, mas a reclama9ao parte 
justamente das pequenas e m6dias que, nao 
autorizadas e sem chances para tal, carecem 
de manuais de fabrica9ao e esquemas. Essa 
documenta9fo, segundo muitos, deveria estar 
nJo s6 ao alcance das firmas de manuten9fo 
mas ate mesmo do proprio usuario. 

Entretanto, com ou sem assistencia tecnica 
centralizada, os problemas surgem e as empre- 
sas tentam resolve-los com os recursos que 
possuem. Na opiniao do pessoal de assisten- 
cia tecnica e manuten^o consultados por nos- 
sa reportagem no Rio de Janeiro e em S£o 



Paulo, os defeitos apresentados nos equipa- 
mentos nacionais da linha TRS sSo, na sua 
maioria, decorrentes de falhas mecanicas e 
operaaonais, dificilmente se referem a parte 
eletronica, isto e, eles estffo mais centraliza- 
dos nos perifericos. 

O problema nurnero um das nossas versdes 
TRS, apontado por quase todos da area e 
mesmo pelos fabricantes, 6 a unidade de dis- 
co. Considerada como parte mecanica do 
equipamento, o drive e susceti'vel a defeitos 
por ser um elemento de prerisiTo, que esta em 
contato constante com usuarios os mais diver- 



Os Color nacionais 



A partir do TRS-80 Color Computer lanQado pela Radio 
Shack, uma nova gera9ao de computadores da linha TRS 
suigiu no Brasil com o mesmo apelo do original: cores e alta 
resoIu9^o grafica. O primeiro deles foi o CD-6809, da empresa gau- 
cha Codimex. Logo depois veio o Color 64 da carioca Novo Tempo 
e na ultima Feira de Informatica assist imos a dois lai^amentos nessa 
linha: o TColor, da Sysdata e o VC-50, da Engetecnica Varix. 

A proposta desses computadores i oferecer ao usuario brasileiro 
caracteristicas de processamento comer rial semelhantes ao do 
TRS-80 Modelo III e ao mesmo tempo caracteristicas de processa- 
mento grifico colorida iguais ao do Apple, porem, a um custo igual 
ou inferior ao do Modelo III. 

No entanto, esses equipamentos, ainda recentes no mercado 
brasileiro i bem verdade, nao tem sido encarados por esse angulo. 
Ser considerado por muitos um micro para joguinhos leva os usua- 
rios do Color a queixarem-se da carenria de aplicativos serios em 
comparacio com a excessiva quantidade de jogos no mercado. 



Independente desse quadro, os fabricantes nacionais de Colors 
continuam apostando nos seus equipamentos e incentivando a pro- 
du9ao de software. A Codimex, al6m de ter implementado o 
CD-6809 com sistema de cores brasileiras PAL-M esta anunciando 
expansao de memdria para 64 K e sintetizador de voz. 

A Novo Tempo tambem fez algumas impiementa9des no Color 
64, a partir do original americano, como saida de video composto 
para monitor, gera^o de sinal de video PAL-M, teclado profissional 
e conector de expan s£o interno. A Novo Tempo esti, no momento, 
direcionando seus esfor90s para fatias de mercado que necessitem de 
equipamentos com caracteristicas especiais. Neste sentido, estao 
sendo desenvolvidas duas interfaces, uma para Videotexto padrao 
AN TIOPE e outra para oonversao AD/DA de 12 bits. 

Os novos lan9amentos nessa linha - TColor e VC-50 - trazem 
como novidade a possibilidade de aele9io entre o uso de drive ou 
cartuchos com programas e jogos. 
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A GERAQAO RADIO SHACK 



sos e que nem sempre tomam as devidas pre- 
caugQes quanto a utiliza^o do sistema. Alem 
disso, algumas firm as assmalaram amda, a ma 
qualidade dos componentes eletronicos mais 
especfficos do drive, aqueles responsaveis pela 
leitura e escrila. 

O CP-500, da Prologica, foi apontado pelas 
empresas de manutengao como o equipamen- 
to da linha TRS que mais apresenta proble- 
mas com o dnve. nos outros a inadencia e 
menor. Esses problemas podem scr traduzidos 
por desaiinhamento da cabe<;a de leitura e 
grava^Jo e desajuste de velocidade. 

Diante disso, alguns cuidados espeaais de- 
vem ser tornados polos usuarios ao lidar com o 
dnve, ja que a ma utihzaijao contribui para 
agravar sensivelmcnte o problema. 

Urn dosalertas vai para a quesfifo de desali- 
nliamento da uniuade de disco e os entendidos 
aconsclham o abnhamento periodico, como 
garantia. 

So para se ter uma ideia do que a dispb- 
cencia com esse ponto pode causar, se o usua- 
rio trabalhar com uma unidade desalinhada, 
embora o sistema esteja funcionando bem, ira 
fazer grava^oes fora do padrao. Ouando a uni- 
dade parar de vez e o usuano proceder ao ali- 
nhamento tera uma triste surpresa: os disque- 
tes que foram gravados fora do padrao apre- 
sentarao erro de disco, de entrada ou o pro- 
pno sistema nao vai aceita-los. 

Por fim, algumas dicas que garantem urn 
melhor funcionamento dos drives: 

• nao deixar os disquetes em locals de muita 
poeira ou expostos ao sol; 

• nao fumar proximo aos disquetes; 

• jamais tirar ou insenr um disquete com o 
led do drive aceso; 

• manter as mesmas concludes de regulagem 
de tensao dos componentes, tambe'm em 
rela^So aos drives - o dnve deve ser conec- 
tado a uma fonte de tensao regulada; 

• quando algum desajuste surgir, recorrer 
imediatamente a uma equipe tecnica quab- 
ficada. 

Mas nSo sao so os drives que dao dores de 
cabe?a aos usuarios da bnha TRS. Com me- 
ftor inadencia, e bem verdade, as empresas de 
assistencia tecnica falaram ainda sobre o tecla- 
do, um problema que e menor no CP-500 e 
maior nos equipamentos Digitus e Kemitron. 
Algumas teclas desses micros deixam de fun- 
cionar e a solu^ao e subsbtuir o reed switch 
(componente ativo do teclado). Fabncantes, 
como a Digitus e a Kemitron. confirmam o 
problema, mas acrescentam que ele ja esta 
sendo solucionado. Segundo elas, tratou-se de 
uma remessa defeituosa que foi colocada no 
mercado pela Digiponto, tradicional fabnean- 
te de tfeclados. 

Para melhor posicionamento de nossos lei- 
tores, na irea de assistencia tecnica, a MS pe- 
diu uma pequena rela<;ao a BCD Engenhana. 
Montagem e Comercio, com os defeitos mais 
comqueiros apresentados pelos equipamen- 
tos da familia TRS brasileira e as adapta^oes 
mais sobcitadas, alem dos respectivos presos: 

• Reparos na UCP - 6 ORTNs (pre^o medio) 

• Regulagem e hmpeza de dnve - 4,8 
ORTNs 

• Conscrto de teclado (Sbbstituicao do reed 
switch ) - 2,4 ORTNs 

• lnstalaijao dc drive - 3,6 ORTNs 

• Instala^ao de expansao de memona - 
2,4 ORTNs 

• MonitorizagSo de TV preto e branco - 
3 ORTNs 

• Monitorizacao de TV colorida PAL/M 
- 4,2 ORTNs 

• Instabujao de joystick - 3 ORTNs 



Sofware 



A familia TRS e seguramente uma das 
bnhas de microcomputadores que 
mais possui software desenvolvido 
para seus equipamentos. O fato de ter sido 
uma das primeiras a surgir no mercado amen- 
cano e tambe'm a sua forma ampla de comer- 
ciabza^ao, atraves dc uma cadeia como a Ra- 
dio Shack, incentivou e muito uma industna 
dinamica de software. 

Entretanto, quando nos refenmos a soft- 
ware nacional para a bnha TRS, as opinioes 
de nossos fabricantes divergem um pouco. 

Enquanto a Prologica e a Sysdata conside- 
ram suficiente o software disponfvel no nosso 
mercado, para a bnha TRS, tanto em quanti- 
dade como em quabdade, a Digitus e catego- 
rica ao afumar que ele nao e satisfatorio. ,f Se 
falamos em jogos, tudo bem, mas se falamos 
em apbca<;6es profissionais, na area contabil, 
financeira ou administrativa. vemos muitas 
adapta<;des de pacotes amencanos e poucas 
apbeaedes que tenham a ver com a nossa rea- 
hdade, diz Marcelo Batista. 

Na opiniao de Laerdo Matos, da Kemi- 
tron, a quanbdade de software e grande mas 
nao sufiaente. “Para uso pessoal, sim, mas pa- 
ra uso comercial, com exce^ao das versoes, e 
fraco. Mas Laerdo faz uma ressalva: "em com- 
paracao com as outras bnhas, os equipamen- 
tos TRS ainda sao os mais favoreddos nesse 
ponto”. 

Com rela^ao aos utibtarios, e' bom frisar 
que o usuano da bnha TRS nao precisa ficar 
esperando as software houses nacionais colo- 
carem suas versSes dos compiladores ameri- 
canos no mercado. Utibtarios amencanos sao 
encontrados em muitas lojas de microcompu- 
tadores, copiados em disquetes, com xerox ou 
n£o do manual original, traduzidas ou nao, tu- 
do ao gosto e dc acordo com o bolso do fre- 



gues. O mesmo se pode dizer de certos apbea- 
tivos americanos. 

A seguir damos uma rela^ao dos utibta- 
rios e apbeativos originais aue sao comcrcia- 
lizados na Gappy, Rio de Janeiro, e na loja 
Imares, em Sao Paulo. Os pretos variam bas- 
tante ja que muitos fatores concorrcm na ela- 
bora^So do valor final. So para se ter uma 
ide'ia, nesse calculo entram o valor do disque- 
te, o tempo gasto para copia-io, o pre^o da 
xerox do manual, o tempo gasto para tirar a 
xerox, garantias ou nao do lojista e por ai vai. 

Muitos desses utibtarios estao insendos em 
sistemas operacionais, mas acabam sendo ven- 
didos separadamente. £ o caso do Superzap c 
do Editor Assembler que compdcm o Sistema 
Operacional NEWDOS. Infebzmente, nem 
sempre o usuano sai ganhando nessa histona: 
muitas lojas nao dao garantia na aquisi<;ao des- 
ses produtos e as copias nem sempre saem 
perfeitas tambem, porque o m'vel de lcgibili- 
dade das copias xerox vai degradando. 

Utibtanos (Clappy): Compilador COBOL 
(13,27 ORTNs), Compilador FORTRAN (6 
ORTNs), Compilador Basic (10 ORTNs), 
Compilador Pascal (13,27 ORTNs), Superzap 
(2,65 ORTNs), Editor Assembler (2,65 
ORTNs), Disassembler (2,65 ORTNs); 
(Imares): Editor Assembler (4 ORTNs), Com- 
pilador Basic (30 ORTNs), Compilador CO- 
BOL (32 ORTNs), Compilador Pascal (28 
ORTNs). 

Apbeativos americanos (Gappy): Micro- 
Files (5,31 ORTNs). Profile (5.31 ORTNs), 
Profile Plus (13,27 ORTNs), Scnpsit (6,63 
ORTNs), Superscnpsit (13,27 ORTNs), Visi- 
Calc (13,27 ORTNs); (Imares): Superscripsit 
(27 ORTNs). Scripsit (22 ORTNs). Z Basic 
(22 ORTNs), Uobsp (20 ORTNs). Lisp (33 
ORTNs). 



A vez do usuario 



P arece nao haver muita clareza quando 
se pretende definii o tipico usuano 
da bnha TRS. A pnori, os lojistas se- 
riam pessoas indicadas para tra^ar um perfil 
do comprador da bnha TRS, o que ja seria 
um pnmeiro passo. Entretanto, nem mesmo 
eles, que bdam diariamente com o pubbeo 
dessa familia de equipamentos, foram capazes 
dc manter uma coerenaa de opinides. 

Visando definir melhor esse usuano e ao 
mesmo tempo colocar em discussao a visao 
que eles tern de cada um dos equipamentos, 
MICRO SISTEMAS promoveu um encontro 
de usuarios da linha TRS. Estiveram presen- 
tes Roberto Quito de Sant'Anna (CP-500), 
Joao Henrique Volpini (D-8000), Ivan Camilo 
Cruz (CP-500 e DGT-100), Francisco Laporte 
(JR Sysdata), Bruno Sartore (JR Sysdata), 
Guilherme Fernandes (Color 64) e Renato 
Degiovani, com a experienaa do CPD de 
MICRO SISTEMAS. 

E foram esses usuarios que opinaram a res- 
peito da utibza^ao dessa familia de microcom- 
putadores. Roberto Quito de Sant’Anna. En- 
genheiro de Telecomunica^oes, professor de 
Informatica da AMAN e usuario de um 
CP-500 ha dois anos, nao acredita que esse 
equipamento possa ser adquirido por alguem 
que pretenda utibza-lo em apbea^oes domes- 
ticas. “A m'vel pessoal, o CP-500 podena atin- 



gir a faixa de entretenunento, mas isso outros 
micros fazem por um prev'O menor. Ja a faixa 
profissional nem todo micro atende. O 
CP-500 serve perfeitamentc”. 

Mas Ivan Camilo Cruz, que trabalha no 
Instituto de Qui'mica da UFRJ desenvolvendo 
rogramas administrativos em equipamentos 
RS, e de opiniao que a faba da bnha TRS 
lan^ada no Brasil ate' agora e estntamente pes- 
soal. O fato dela estar sendo usada na area 
profisnonal/comercial e' reflexo da situa^ao 
economica de muitas empresas e de profissio- 
nais que nao podem adquinr um equipamen- 
to mais caro e mais potente. 

Um usuario pessoal com menor expenen- 
cia em equipamentos TRS, como Francisco 
Laporte, acredita que existe esparto para apli- 
ca^oes dome'sticas e pessoais em equipamen- 
tos TRS. "Acho que a partir dai' vai se desco- 
brindo muitas coisas sobre o equipamento, 
acabando por chegar a apbea^des mais senas e 
uteis”, diz ele. 

Seja qual for a utibza«;ao que os usuarios 
da bnha TRS deem ao seu equipamento, uma 
coisa e certa: todos tern opiniao formada a 
respeito do seu micro, sabem o tipo de infor- 
ma^ao que faltou no manual do fabricante, sa- 
bem os defeitos mais comuns do seu equipa- 
mento, as rotinas e os perifericos que estao 



faltando. Sendo assim e com eles que esti a 
palavra de agora em diante. 

Um fato assinalado por todos os usuarios, 
salvo raras exce<;6es, e' a ma quabdade dos ma- 
nuals que acompanham o, equipamento e o di- 
fi'cil contato com o fabricante, o que difi- 
culta o fomecimento de dados e esclarerimen- 
to de duvidas a respeito do funcionamento da 
maquina. 

A experiencia de Joao Henrique Volpini, 
Engenheiro Naval, terminando Pos-Gradua^ao 
na COPPE/UFRJ, que adquiriu um D-8000 da 
Dismac ha cerca de um ano e meio, e das mais 
interessantes. 0 equipamento chegou sem ne- 
nhum manual de instru^ao para montagem. 
Depois de uma intensa batalha e de um em- 
purraozinho do lojista, o D-8000 tomou cor- 
po e alcan?ou a forma certa. Depois, para b- 
dar com o equipamento foi outra etapa e ele 
acabou tendo que adquirir um manual do CP- 
500. Nessa epoca, as tentativas de contato 
com a Dismac por parte de Volpini foram 
inuteis. "Hoje - diz ele - eu ajo como se meu 
equipamento simplesmente nao tivesse fabn- 
cante". 

Roberto Quito de Sant'Anna considera o 
manual do CP-500 razoavel, mas em compa- 
ra^ao com os outros da mesma linha e o me- 
lhor. Ji nSo diz o mesmo em rela^ao a sua ex- 
penencia com o fabricante: “Liguei uma vez 
para a Prologica e a cada pergunta eles argu- 
mentavam: 'mas isso c segredo de diretona’, 
‘mas isso so o diretor sabe dizer'. Resultado, 
nSo consegui saber a designa^ao das portas 
E/S do CP-500 e desisti de entrar em contato 
com o fabricante”. 

Guilherme Fernandes, estudante de Enge- 
nharia Eletronica, considerou bom o manual 
do Color 64, uma rara exce^So, mas em com- 
pensai;ao cnticou bastante o relacionamento 
entre os usuarios e os fabncantes. "Eu paguei 
o equipamento com modulador, mas na ver- 
dade ele nao tinha modulador, so quando re- 
cebi o micro e que descobn isso”. 

O primciro contato de Bruno Sartore, de 
15 anos, com o seu JR tambem nao foi muito 
bom. A liga9aodos cabos da interface de gra- 
va^So estava errada e ele levou algum tempo 
para descobrir isso. Experiencia semelhante 
foi reistrada no CPD de MICRO SISTEMAS 
em relacao ao DGT-100. A tomada de tensao 
1 10/220 Volts estava invertida, o que sem ser 
observado a tempo poderia causar um dano 
maior ao equipamento. £ nesse ponto que 
muitos usuarios se mostram descrentes em 
relacao a essa propagada preocupa^ao com 
o controle de quabdade por parte dos fabn- 
cantes. 



Torre de Babel 

Enquanto o assunto entre os usuarios da 
bnha TRS reunidos por MICRO SISTEMAS 
girou em tomo dos manuais e do relaciona- 
mento com os fabricantes, as opiniSes foram 
quase sempre as mesmas, apenas com peque- 
nas nuances devido as expenencias de cada 
um. Mas quando o assunto se voltou para o 
equipamento em si, o que se constatou e' que 



cada um falava uma lingua diferente. Isso de- 
monstrou claramente que a familia TRS e 
uma bnha de equipamento sui generis. A 
comumca^ao entre seus usuarios, quando se 
trata de falar sobre seu micro, e muito difi'cil, 
devido a propria especifiddade dos equipa- 
mentos dessa bnha. 

O usuano do Color, Guilherme Fernandes 
fez uma observa^ao particular a respeito do 
seu equipamento. Depois de adqurri-Io, Gui- 
lherme passou a considerar como unica des- 
vantagem desse equipamento o fato dele ser 
recon heci do por muitos como um micro para 
joguinhos. “0 software disponi've! e reduzido 
e a maior parte do que existe sao jogos. Nos 
nSo compramos um videogame e sim um com- 
putador . 




CP-500: campeao de vendas no mercado 
brasileiro 



Mas certamente nao e esse tipo de preo- 
cupa^ao que esta presente no usuario do CP- 
500. A preocupa^ao de Roberto Quito, por 
exemplo, foi com relacao ao sistema de refri- 
gera^ao do CP-500, considerado por ele defi- 
ciente. “O transformador do micro tern um 
ventilador que, ao inves de refrigerar, espalha 
calor dentro dele. Nao ha exaustSo. Eiepois de 
meia hora de utibza^ao se tira o disquete do 
drive e ele esta frito. A Prologica poderia pelo 
menos canabzar a distribui^ao ou drcula^o 
de calor dentro dele. Essa sena a soiu^ao ade- 
quada, mas a min ha foi a de adaptar um 
exaustor". 

A segunda observa^ao sobre o CP-500 diz 
respeito ao ampbficador de audio intemo. 
Alem da gera^ao de som no CP-500 ser difi- 
cultada pela falta de um comando que facibte 
o uso do sintetizador, os usuarios assinalaram 
falhas no projeto do ampbficador de som da 
Prologica. 

Os drives nao passaram impunes pela mar- 
caqao dos usuanos. Com um ano de funciona- 
mento os dois drives de Roberto Quito apre- 
sentaram excesso de veloadade. Um pouco 
menos sorte teve Ivan Camilo que com ape- 
nas uma semana de uso do seu CP-500 come- 
90U a enfrentar problemas no drive, os mais 
diversos, e que nao foram resolvidos ate hoje. 



Em problemas de drives, o CP-500 nao 
reina sozinho. Ivan Camilo, que tambem e' 
usuario de um DGT-100, apontou problemas 
com os dnves desse equipamento. Inclusive, 
pela expenencia que possui nos dois micros, 
Ivan e de opiniao que os dnves da Digitus sao 
ate mais problematicos que os da Prologica. 

Quando o assunto se voltou para esses dois 
modelos da familia TRS mais comeraabzados 
no Brasil, CP-500 e DGT-100, algumas dife- 
ren^as importantes foram assinaladas pelos 
usuarios desses dois equipamentos. Nessa bre- 
ve compara<;ao, que nSo envolve evidentemen- 
te todos os aspectos tecnicos dessas duas ma- 
quinas, estao frisadas apenas aquelas diferen- 
9as que saltam mais aos olhos de quern utdi- 
za 0 equipamento no dia a dia. 




JR Sysdata: uma op$ao mais barata 
na linha TRS 



No Digitus, por exemplo, o fato da sua 
UCP apresentar 2,5 MHz contra 2 MHz da do 
CP-500, Ihe con fere maior agilidade no pro- 
cessamento de certas rotinas operacionais. Foi 
apontada tambem uma maior veloadade de 
grava^So em cassete do DGT-100, s£o 2 mil 
bauds contra, no maximo, 1 mil e 500 do 
CP-500. 

Quando o usuario quer utilizar repeti^ao 
de teclas encontra mais agibdadc no DGT-1 00. 
Apesar desse ponto n£o ser de muita impor- 
tancia quando se trata da digita<;ao de bsta- 
gens.ele toma-se pnmordial em edi<;ao e de- 
purai;5o de pro gramas. 

O equipamento da Digitus amda apresen- 
ta alguns recursos visuais, dc tratjo e de bnha, 
nSo dispom'veis no CP-500. No entanto, o 
CP-500 possui muito mais caracteres ^afi- 
cos. De negativo, no DGT-100, os usuarios 
apontaram o chuvisco na tela, o que prejudi- 
ca a parte visual dos program as (prinapal- 
mente se forem jogos). 

Embora nao partiapando da discussao em 
tomo de drives, som e outras caracten'sticas 
presentes no DGT-100 e CP -500, os usuarios 
do JR da Sysdata manbveram um papo para- 
lelo onde assuntos como teclado, barulho do » 
equipamento e ate mesmo a incerteza quanto® 
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— Faga de seu Apple um eficiente detetive, entendendo como se pro- 
cessam as deduqdes Idgicas na sua mdquina, atrav6s do artigo Progra- 
mas que raciocinam , do prof. Antonio Costa. 

— Carlos Alberto Diz traz informagoes valiosas para que voce Mante- 
nha seus bytes sob controle. 

— Outras palavras em Forth, de Ivan Camilo Cruz, implementa novos 



comandos ao compilador Forth — publicado em MS n? 22 — , inclusi- 
ve alguns bastante uteis para a programagao de jogos. 

— MICRO BUG continue com muitas novidades: dessa vez explica o 
comando M e as principals rotinas do Sistema Gerenciador de M6du- 
los do seu Sinclair. 

— MS traz ainda os programas CorreqSo de proves e cilculo de Areas. 
para os micros da linha TRS. 
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MODELO 




VIDEO 
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ENTRADAS 


SISTEMA OPERACfONAL 
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npo/Forma— 
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SMtame 
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64 K 
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DOS 
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145 ORTN» 
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120 ORTNs 
Joystick 4 ORT>* 


ind e Com da Comp Novo Tempo Lida 
Rua Jo— Mendonga da Campos 600 • 
Colubandt 

24400 Sao Goo cab - RJ 
T— (081) 701 0006 


Color 64 


Motorola 
6609C 
0 9/1.6 Mhj 


TV PAL M am VC 

Ou mon co< 

laato 16 1 a 32 COM ou 
24 1 a SI com 
IC/WBl Flail 
gral BR 64 • 192 pts 
AR 192 a 2S6 pts 


BR 9 (preto isrde 
amamio ami vermemo 
Page am' piscina 
magenta lerantai 
AR 2 iprato/ varda 
ou prsto/bsgs. 


S3 tadas 
7 da comando 

Mi 

I O Fiexi 


16 K ROW 


64 K RAW 


10- 


asset* 

1 4 drives de 
14 FS/DO C J 
i KB cede 


interlace sens 1 
Cassela 

Com Ass 300 9600 bps 
•programsvei por soft) 


BASIC M<roson 


OS9. Flex. CP/M 


BASK,'. Aaaemoiei 


Coooi. Form. Fortran. 
Logo Pascal 


UCP 64 KB saidaap/ 
TV, aom a cassate 
140 ORTNs 


intarpreiador Color 
BASIC sxlendido 
14 ORTNs | 

Mod RF (video • tom). 

10 ORTN# 

int p i joystick 2 ORTNs 
Int p/ 4 drives de 
5 1/4 44 ORTNs 

Drrve de 5 1/4“ 

127 ORTNs 


Ke—ranUda 

A. do Contorno. 0046 Savasai 
30000 8a*o Mor.foraa MG 
Tal (031) 2» 0644 


Naja 


is 

3 1/3 6 MM; 


Mon FV 

tsato 16 1 a 32/64 COM 
graf 8R 46 1 128 pti 


see 


66 lac <a* 
aulo-'apai 
am todas 
num >*d 
Mai /mm 
Cad .mat 
ac P©n 


16 K ROM 


46 A RAM 


Piaca CP/M 
C/ 64 K 


aaeeie 


interlace paralsU 
Cassate 
Vidao direlo 
fi slots Hvtes 


BASIC revdent? 


CP/M, Naie/DOS 
i.Neurdos/aOl 


BASIC 


Cobol Form. Fortran. 
Lisp Pascal 


UCP 46 KB. mon FV, 

saidep/unp 

229 ORTNs 


Inl p/ drive de 5 1/4' . 

52 ORTNs 

Drives 5 1/4 

(120 ORTNs) 6 

(sob consults) 

int RS232C 25 ORTNs 

Place clock 4 MHi 

7 ORTNs 

Piaca clock 6 MNi 
25,1 ORTNs 
PIaca CP/M eJ 64 KB 
33 ORTNs 
Piaca vidao a cores 
44 5 ORTNs 

Sint de voi 48.3 ORTNs 
ini p / tom 5 ORTNs 


ProSOgica W e Com da AUcrocomp Uda 

Av Eng - Luis Car lea Bemm 1166 
04671 SAo Paulo SP 
Tal (011)631 6627 


CP-300 


is 

2 MM/ 


TV PAL-M 

-MO 16 1 a 64 COM 
gral 46 a 126 pts 




64 lac lat 

1 da tungAo 
auto-rspat 
*m todas 
Ma Aim 


16 A ROW 


46 K RAM 




assets 

1 4 drnes de 
14 FS/DO cJ 
I KB cada 


VkWo direto 


BASIC revoenie 
(comp c / TRS 
Mod IH) 


DOS 500 


BASC Asaamtxer 




UCP 46 KB saidas p/ 
TVscassats 

71 ORTNs 


Int paraieia p/ imp 
e serial RS232C p / 
com (langamento 
previslo p / abnl/Wi 


CP-500 


? MKf 


Mon FV mcorporado 
la ■ to 16 1 ■ 64 cola 
gra* 48 ■ 128 pM 


—a 


64 lac Ms 
9 da tungAo 
•ulo- repel 
am toda* 
num rad 
Mai /mm 


16 K ROW 


46 K RAM 




suets 

4 drives de 
'4 FS/DO C/ 
KB cada 


interlace paraMs 
Caasate 


BASIC resKJenie 
icomp c/ TRS 
Mod III) 


DOS 500 


BASIC Aasarroier 


BASIC disco 


UCP 46 KB. mon FV. 
•nt par 191,41 ORTNs 
c/ 1 dove 
292.31 ORTNs 
C / 2 drrves 
309 57 ORTNs 


imp P-500 
166.97 ORTNs 
lot RS232C 
73.41 ORTNs 


Rua Jorga Oupral r^jauado 647 ■ Vila Sla 
Catanna 04361 SAo Paulo SP 
Tal (011)542-1122 


JR Sysdafa 


is 

1 78/3 bi 

MM/ 


TV PAL-M ou mon 

(FV Ou FBI 

MHO 16 1 a 64 COM 

•sm>-grsl 46 • 128 pM 




!>.-■ iec-ai 

? oa tungAo 
7 da comando 
auto repel 
em todas 
Ma- /mm 
Ceddha s 
ac Pon 


16 K ROW 


16 K RAM 


48 Ou 64 K 


4 drives da 
>4 FS/DS 
3 KB cadal 
FD/OO 
J KB cada) 


Cassela 

Joystick 

Moduiador de RF 
Vidao direto 


BASIC residents 


CP/M 2 7.TRS-OOS 
LOOS, DOS PLUS 
SYS DOS Newdot 


BASIC Assembler 


BASIC compiiado 
Cobol Form Fortran 
Liso. Pascal Pilot 


UCP 16 KB. conexAo 
p/ loyslick mod RF. 
said a p/ cassate e VO 
71.69 ORTNs 
UCP 46 KB 
92.37 ORTNs 


Ted prot 17.5 ORTNs 
Inf p/dr.veo e imp 
37.71 ORTNs 

Dnve de 5 1/4 96 ORTNs 
Mon P4B (31.22 ORTNsi 
FV (34 SORTNai 
Ex landed BASIC. 

4 66 ORTNs 
CP/M 6 62 ORTNs 


Sysdata III 


S3 

2-5 MKI 


Mon FV 

—■to 16 1 a 32 COM 
19 1 a 74 COM 
24 1 a 60 COM 
sam.-gtal 46 a 128 pts 
g-ai AR 256 a Si? pts 




70 lac la* 

4 da tungAo 
6 da comando 
euto-repst 
am todas 
num rad 
Mai /mm 
CMuria a 
ac Port 


20 K ROW 


64 K RAM 


AW 266 K 


mere 
4 drives 
DO de 5 1/4 
) KB cada) ou 8 
X) KB cadal 
2 dMCOS rigidOS CM 
0 cada 


interface paraieia 

Casaete 

OiSQuate 

Joystick 

CP/M 

Alta resolugAo 
video direto 
6 slots irvres 


CP/M. SYS DOS 
LOOS TRS DOS 




BASIC Aaeomwer 


Cobol. Form, Fortran 
Uep. Pascal Pilot 


UCP 64 KB. video 
24 , 80 2 drnes 
S 1/4 00/FS 
365 ORTNs 




T -Color 


Motorola 

6603 


TV PAL- M 

laato 16 I a 3? COM 

grat BR 3? a 64 COM 


BR e AR 6 (Ami varda 
amersto cm no rose 
cma vermalho 
larania) 


47 tac las 

1 da tungAo 
3 da comando 


0K ROM 


4 K RAM 


20 K (total) 


tasete 


Interlace serial 

Cassete 

Joystick 

Moduiador 0a RF 
Som 


BASIC residents 




BASIC 




UCP 4 KB 43 ORTNs 





Esta label a foi elaborada com base em questionanos respondidos peios fabricates, e os precos 
referem-se a fevereiro/84 (valor da ORTN Cr* 8 285.49) Os itens assmaiados por trapos (~) mdicam 
que o equipamento, de acordo com o questionano. nao possui essa caracteristica. o 
que estiver em branco. nao foi respondido pelo fabric ante 



ABREWS TURAS OTUZAOAS 

ac •aanfeiacAo 

AD/QA ■ analog •eo/dg’.ai • digital/ analog <0 
AR - ana resolugAo 
auto-mper - auio-nqetigAo 
BR Mm resolugAo 
ci eoatuMom 



• cotondo 
I - cotunaa 

it ass - comuncagAo 
iv -conve-so* 
dtnwMJ* duptt 
- densidade trr (ttt 



Maine rona 



FB ■ lodoro Branco 
FD lac* dup'a 
FS • face wmgias 
FV - *os«oro verde 
graf g'aiico 
imp • impmaaora 



int • iniartace 
I • trnnas 

Mai - maiuscuias 
mm - rmnuicuias 
mod - moduiador 
mon ■ monitor 



num rad • tacladD rtumArico reduiOo 
op - opconal 
par -paraiala 
Port PortuguAs 
• pontos 

radio frequAncia 



& 



sami-graf - sem>-^a«ico 

SHU - vnwteado' 

sist - ustama 

VO • vidao diraio 

VC ' ndao composso 

TV - 'acapior conum da TV 
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A GERAgAO RADIO SHACK 



a compatibilidade dc seu equipamcnto estive- 
ram prescntes. 

Coincident™ ou nio. o que determuiou a 
compra de um JR, pelosdois usuinos presen- 
tes. foi o pre^o dcsse equipamcnto. "Eu que- 
na um equipamcnto da linha TRS, disse Bru* 
no Sartore, e o mats barn to era o da Sysdata''. 
“Eu tambem adquin um JR devido ao menor 
pre?o dew equipamcnto e por acreditar que 

3 uando voce compra um DCT-100. na verda- 
c, esti pap n do malt pelo design e pelo te- 
clado”, afumou Francisco Laporte. 

Um teclado nio profissional foi. na ver- 
dade. uma saida da Sysdata para podcr colo- 




DGT-100. a versdo mineira do Modelo l 



car no mercado um produto muis competiti- 
ve a nivel dc pre^o K c jurtamente dcssc 
teclado que reebmam os usuanos do seu cqui- 
pamenlo. 

Depois dcssa colcha de retalhos, onde cada 
usuano fez as sua* observances especificas fica 
uma pergunta no ar: o que. na verdade, csta- 
na fallando aos usuinos da hnha TRS"* Bern, 
vaindo das articulandades de cada equipa- 
mcnto. poden'amos penvar cm cores c alia re- 
solus'io graftca Algumas empresas, pensando 
nisso. ja estio ofercccndo essas op^des aos 
equipamentos IRS (vide bloco sobre penfc- 
ncos), 



Sistema s operacionais 



D os (Disk Operating System), mats 
conhecido entre nos como Sistema 
Opcracional cm Disco i uma pabvxa 
comum no vocabulino dos micros da familu 
TRS. ja que estes sistemas controbm a ope- 
ra^Io dos computadores que utilizam disco. 

Os sistemas operacionais que acompanham 
nossos micros slo base ados cm dots famosos 
DOS americanos: TRSDOS da Radio Shack e 
NEWDOS da Apparat Inc. O pnmeiro serviu 
de espelho a Prologue no DOS-SOO do CP-500, 
c o segundo a Digitus no DIGDOS do 
DGT-1000. 

Akim do DOS. os usuinos da familia TRS 
tambem con lam com o Sistema OperacionaJ 
CP/M. OpCtonal, clc consta da lista dc penf6- 
ncos da Digitus. Kemitron, Sysdata c algumas 
empresas como PSI, Prorus e Microsol estio 
comeraaiizando placa CP/M para o CP-500. 



Nio faremos aqui uma anilisc dos Siste- 
mas Operacionais cm Disco normalmcnte co- 
mcrciaiuados nos Estados Unidos c aqui no 
Brasil, inclusive porque MICRO SISTEMAS 
ja dedicou uma dc suas edi^dcs a anabsc c ca- 
ractcrfsticas desses sistemas < MS, n? 25). 

Os usuinos dc micros TRS no Brasil nio 
prectsam Hear Umitados apenas aos sistemas 
que acompanham o seu micro. Di versos ou- 
tros DOS (DOSPLUS. NEWDOS. LDOS.etc.) 
sio encontrados cm muitas lojas que comer- 
ciahzam microcomputadores e sio conscgui- 
dos ou a partu de um batc-papo divert to com 
o vendedor. cm algumas delas. ou atravis do 
pedido formal e dire to. cm outras. Para ou- 
tros. a saida tern sado recorrer aquele amigo 
que conseguiu o sistema original, copii-lo e 
tirar uma xerox do manual. 



O que normalmcnte acontece, nessa linha 
dc equipamentos. vgundo os lojistas. sio 
usuinos do CP-500 mtcressados no NEWDOS 
e os do DGT-1000 interessados no manual do 
NEWDOS. jii que o manual do DIGDOS foi 
apontado por muitos como carente de infor- 
ma?Oes. 

Aqui vio os pre^os dos Sistemas Opera- 
cionais em Disco originals encontrados majs 
facilmente nas lojas do Rio e Sio Paulo 

• TRSDOS Radio Shack (com manual) 
9.65 ORTNs 

• NEWDOS Apparat Incorporation (com 
manual) 9.65 ORTNs 

• DOSPLUS Micro System Software (com 
manual) 10 ORTNs 

• LDOS - Logical System Incorporation 
(com manual i 9 ORTNs 



Tendencias da Linha TRS 



N a riltuna F'eira de In forma oca no 
Par que Anhembi. em Sio Paulo, en- 
tre tcixes de raio laser e novidades na 
ire a de compuU^io, assistimos a um fato 
cunoso: uma avalanche de lan^amcntos na li- 
nha Apple e poucos bn^amentos na linha 
TRS. Sem estardalha^o. apenas duas empresas 
eslrcaram no mercado TRs. a I ngeteemea Va- 
nx e a Novo Tempo. O que estana acontccen- 
do com a linha de equipamentos TRS no Bra- 
sil? Seri que os micros Apple se tomaram um 
concorrente seno para os IRS? Ou seri que as 
potrntes miqumas de 16 bits ji oometaram a 

S or u unhas de fora, tmbtndo o mercado de 
Utt? 

Nio podemos deixar de nos cspclhax no 
mercado americano e acreditar que o land- 
men to do Tandy 2000 pela Radio Shack, um 
equipamcnto de 16 bits nio mats com pa live I 
com a chamada linha TRS. e sem duvida um 
snal dos tempos. Mas de ii para ci o caminho 
costuma scr bem mau longo c at* com alguns 
desvios. a histona tern provado isso. Sendo as- 
om. Ain da sobram muitos outros parametros a 
serem estabeleados nessa questio. 

As opimSes a rcspcito dessa provivel cstag- 
na«io da linha TRS no Brasil sio as mau va- 
nadas. Carlos Diz. que vem acompanhando de 
perto hi treze on os o mercado de micros no 
Brasil (atualmcnte e socio-gcrentc da Com- 
pusystem, software house espcaahzada em 
banco de dados), considers o equipamcnto 
Apple um forte conconrnte da hnha TRS 
dentro do mercado pro fisnonal /comer rial 
Nio peb Aia versatihdade. recursos de cores 
ou alb reiokiffo graftca , mas sim peb politi- 



ca de marketing que os fa bn cun lei dessa li- 
nha dc micros vem adotando, cspeciabncnte a 
Unitron, apoiundo o revendedor e ate mesmo 
o usuano. O que ti nio acontece com os fa- 
bn can tes da hnha I RS. 

"O Apple so e concorrente por esse as* 
pccto", frisa Carlos Diz. "porque cu acredito 
que o TRS-80 uprcsenta o necessino ao usua- 
rio que pretendc otitizar o micro na area pro- 
fi sso nal/co mer cia 1 Nesse campo, a pessoa 
buses eficicncia, rapidez, precisio. mas quer 
tambem um objeto dc irabalho agradivel. um 
vfdeo que nio canse a mta, uma teb de bom 
tamanho. O TRS (DGT-1000 e CP-500) tem 
video de fosforo verde e sua teb possut 24 
colunas a mats que o Apple. Vendidocm par- 
tes. se a pessoa quiscr que um Apple tenha 
todas as vantagens que oferece um Modelo I 
ou III teri que gastax man dinheiro com im- 
plcmenta^fies extras". 

Com rebrifo a entxada em cena dos micros 
dc 16 bits, Carlos Diz acredita que ainda 6 ce- 
do para se falar nisso senamente no Braal: 
"nio podemos ter necessidade por 16 bits 
quando hi tres anos atras nio tinhamos ncm 
para 8 bits". Entre tan to. Ernesto Camcio. 
com larga expcncncia na revenda dc micro- 
computadores pois miaou no mercado em 81 
como pcrcnU. da pnmeira loja dc micro i do 
pais: a Computiquc. acredita que os micros 
de 16 bits chcgaram no Brasil para Hear. 

"Hoje eles ainda nio sio concorrentes do 
•TRS. mas o pre^o dos dc 16 bits vai cau. isso 
e uma questio de atualuas'io tecnologua. A 
nivel intemaaonal os 8 bits estio em sobrc- 
vida. O usuano no Brasil talvcz nio necessite 



agora de toda a capactdadc que os dc 16 bits 
ofcrece. mas tambem corrc o nsco de dear 
desatualuado daqui a alguns anos. Para a li- 
nha Apple ainda dou man uns don anos dc 
vida nessa concorrenciu. mas o Modelo 1 RS 
esti entrando cm dcclinio. Fssa difrrenva esli 
sendo dctcrminada neb propna postura dos 
fabneantes dcssas Unhas'*. 

Tcmos que reconheccr que nesu questio 
podeinos fazer prcvisdcs. base ados no desen- 
volvimento do nosso mercado e ate mesmo 
a partir dos rumos que a industna de micros 
vem tomando nos Fsbdos Unidos, mas asse- 
gurar qual wri o destino dos micros TRS no 
nosso pafs i quase impossivel As previsdes 
estio aJ . as questdes sio esus c muitas outras, 
evidcntcmcntc.O rcsto... so o tempo diri. 

■ 

A 



Apurmcfo SP Ctiudm Rama/ho a Smla 
Lacfitrrmachar 

ApuracSo RJ: Dan iso Pragana. Grata San rot a 
Ricardo t no iota 
Tax to final. Grata Santos 
MICRO SISTEMAS agradace de pObhco a to- 
dos os qua colabor aram nessa reportage m aos 
usuAnos de micros TRS qua parti ci par am do 
debate, am especial Roberto Quito da Sant' 
Anna, aos fabneantes nactonms dessa linha de 
computadores: its lojas Clappy. ImarAs, Com- 
puter! and, Compushop e a software house 
Monk Micro InformAtice. e tambem ao Da 
partamento de Processamanto de Dados da 
Embratal, 
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SINTA NOS DEDOS ESTA NOVA 

CONQUISTA 



J3 nao 6 precise escoiher. Agora voce tem o microcomputador DGT-1000, com design moderno 
e novas incorporates que Ihe conduzirao a decisao certa. 

O DGT-1000 6 modular e dependendo da sua necessidade ele se expande at6 um grande sistema. 
A DIGITUS Ihe assegura a possibilidade de expansao do DGT-1000 
atrav£s das interfaces que comercializa: 

• Interface printer, paralela para impresaora tipo centronia 

• Interface pare unidade de disco flexivel 5 1/4 fate 4 
unidades de 184 KB cada). 

• Expansao de mem6ria ati 64 KB. 

• I nterface colorida com alta resolucao grit ica. 

• Interface RS 232. 

• Sintetizador de voz. 

• Sistema operacional DGP/M totalmente compatfvel com 
CP/M (com o DGP/M vocS podert user os famosos programas 
WORDSTAR e dBASE If). 
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numerica 



Trazemos para voces dois programas que executam 
integragao numerica nos micros compati'veis com o ZX-81 (TK, 
NE, CP, Ringo e AS 1000). O primeiro baseia-se no metodo 
de Simpson e o segundo, por "Pontos Discretos ", 
da a oportunidade de escolha do metodo a ser utilizado: 
Simpson ou Trapezio. Vamos a eles. 



Metodo de Simpson 

Rogdrio lerusalimschy 



E ste programa ressalta a importan- 
ce da fun9So VALem microcom- 
putadores compativeis com o 
ZX-81, utilizando o metodo de integra- 
gao numerica por Simpson. 

Como este metodo 6 iterativo,ou se- 
ja, a fungSo a ser integrada deve ser cal- 
culada para diversos valores de X, have- 
ria a necessidade de se colocar lima sub- 
rotina contendo a F(X) em uma deter- 



minada linha do programa. Como no 
BASIC destes micros nSo existe a possi- 
bilidade de se programar uma funsao de- 
clara^o (como em FORTRAN, por 
exemplo) nem tampouco existe a ins- 
trugao DEFFN, a melhor maneira de se 
contomar o problema e utilizando a 
fungSo VAL. A fungao a ser integrada, 
F(X), i armazenada em uma variavel al- 
fanumerica FS logo no inicio do pro- 



PASSO 


DISPLAY (TV) 


1) Carregar o programa 


ESCREVA A F(X) E APERTE NEWLINE 


2) SIN ( X) 


ENTRE C/ O LIMITE INTERIOR 


3) 0 


ENTRE C/ 0 LIMITE SUPERIOR 


4) PI/2 


ENTRE C/ N (TEM QUE SER PAR) 


5) 15 (n Impar ?! ) 


ENTRE C/ N (TEM QUE SER PAR) 


6 ) 30 


i—i 

11 

H 




DESEJA CALCULAR P/ NOVO N ? (S/N) 


7) S 


ENTRE C/ N (TEM QUE SER PAR) 


8 ) 10 


I = 1.0000034 


9) N 


DESEJA CALCULAR P/ NOVO N ? (S/N) 




9/370 



Figura 1 - Para cada valor entrado ou calculado. haverd a respecliva impressdo na tela. Assim. 
ao final do cdlculo, haverd um completo registro de toda a operagdo. 
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grama e calculada atraves de VAL FS 
tantas vezes quant as forem necessarias 
durante o processamento. 

Provavelmente alguns de voces esta- 
rao pensando: Por que nSo usar a fun- 
930 GOSUB? Simples: usando VAL F$ 
ganhamos tempo duas vezes. Primeiro, 
nao precisamos listar o programa para 
procurar pelo local reservado para a nos- 
sa fungfo; em segundo lugar, o tempo 
de processamento 6 bem menor, j i que 
o micro nSo precisa procurar pela linha 
da instrugao GOSUB e retornar a esta. 
Al£m de tudo, o programa Fica bem 
mais elegante e j i entra rodando logo 
ap6s o seu carregamento. 

Vamos agora a algumas consideragbes 
a respeito do metodo. Atraves do m^to- 
do de Simpson podemos obter, com 
uma boa aproximagao ou ate mesmo 
com exatidSo, a integral definida de 
qualquer fungSo real. Para tal, precisa- 
mos entrar com a formula exphcita para 
a fungao F(X), com os limites inferior 
(X 0 ) e superior (Xn) e com o numero de 
intervalos (N), o qual tern que ser um 
numero inteiro par. A partir dai, o valor 
da integral definida de F(X), de X 0 a 
Xn, sera calculado pela regra de Simp- 
son, ou seja: 




[' 



F(X„) + 4F(X, ) + 



+ 2F ( X , ) + . . . + 4F( X ,) + 2F 
2 n-3 

(X n- 2 > + ^'Vl 1 + F(X n»l 
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Metodo de Simpson 



0 REM **** PROGRAMA DE ROGERI 
O IERUSALIMSCHY . (1/1/1983)**** 
10 PRINT AT 0,0; 



20 PRINT AT 1 ,2;“=>ESCREVA A F 
(X) E APERTE < = “ ; AT 3,10;"< NEWLI 
NE >“ 



30 INPUT F$ 

39 REM 1 1 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

40 PRINT AT 3,10;" * 

; AT 1.0: 



50 PRINT AT 2,0; “P(X)=" ;P$ 
60 PRINT AT 4,0; 



70 PRINT AT 7,1; “=>ENTRE C/ O 
LIMITE INPERIOR<=“ 

80 INPUT X0 

89 REM 30 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

90 PRINT AT 7,1;“ 



155 PRINT AT 1 1 , 1 ;“N“=“ ;N 

160 LET H= ( XN-X0 ) /N 

165 PRINT AT 13,1;"H=*;B 

170 REM METODO DE SIMPSON 

180 PAST 

190 LET X=X0 

200 LET ACUM=VAL F$ 

210 LET X=XN 

220 LET ACUM=VAL F$+ACUM 

230 LET X=X0 

240 LET P=2 

250 FOR 1=1 TO N-1 

260 LET X=X+H 

270 LET P= 6 -P 

280 LET ACUM=VAL P$*P+ACUM 
290 NEXT I 
300 SLOW 

309 REM 16 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

310 PRINT AT 16,4;“ 

■ 

320 PRINT AT 1 5 , 0 ; 



100 PRINT AT 7,1; “X0=“ ;X0 
110 PRINT AT 9 , 1 ; " = > ENTRE C/ O 
LIMITE SUPERIOR<=“ 

120 INPUT XN 

124 REM 30 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

125 PRINT AT 9,1;“ 

■ 

130 PRINT AT 9,1; “XN= " ;XN 
135 PRINT AT 11,0; “ = >ENTRE C/ N 
(TEM QUE SER PAR )< =“ 

140 INPUT N 

145 IF N/2-INT (N/2)<>0 THEN GO 
TO 135 

147 REM 32 ESPACOS EM BRANCO NA 

LINHA ABAIXO 

150 PRINT AT 11,0;“ 



330 PRINT AT 16,1 ;“I= “,ACUM*H/ 
340 PRINT AT 17,0; 



350 PRINT AT 20,0; “DESEJA CALCU 
LAR P/ NOVO N? ( S/N ) “ 

360 IF INKEY$=“S“ THEN GOTO 390 
370 IF INKEY$=“N“ THEN STOP 
380 GOTO 360 

389 REM 32 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

390 PRINT AT 20,0;“ 

400 GOTO 135 
500 SAVE “SIMPSON" 

510 GOTO 10 



onde 

X Q • Limit® Inferior 
X n ■ Llaite superior 
x ( - X 0 ♦ ih I i ■ 1.2 n-i 



^ n ■ Numero de Intervalos (inteiro par) 

Apesar de nfo haver grandes diferen- 
9as em termos de esfor90 computacio- 
nal entre os mdtodos de Simpson e dos 
Trap6zios para o mesmo numero de in- 
tervalos (as opera95es sao, de certa for- 
ma, semelhantes), o metodo de Simp- 
son fornece uma aproximag3o bem me- 
lhor, o que o toma mais eficiente e t&- 
pido que o metodo Trapezoidal. 

Para que voces possam ter uma iddia 
melhor sobre o funcionamento do pro- 
grama, trazemos, na figura 1 , o procedi- 
mento para sua utilizagSo, tomando co- 
mo exemplo a integral a seguir: 

^ V2 V2 

[ SEN ( X ) dX= - COS(X) = - COS 

I Jo 

/o 

(- 3 -) - (-COS(O)) =0+1 = 1 

A figura 2 mostra como fica a tela 
ap6s uma rodada, e a figura 3 relaciona 
tempo (T) e precisao de resultados (I), 
para diferentes numeros de intervalos 
(N). Observa9ao: T 6 aproximado. 
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F (X) =SIN X 




, 


X0=0 






XN=1. 5707963 






o 

(V) 

II 

z 






H=. 052359878 












1 = 1 






■ 






DESEJA CALCULAR P/ NOVO N? 


(S/N) 



Figura 2 



N 


I 


T 

(SEG) 


6 


1.0000263 


1.4 


30 


1.0 


3.2 


50 


1.0 


4.8 


100 


1.0 


8.0 



Figura 3 



Rogdrio lerusalimschy 4 estudante de Enge- 
nharia de Telecomunicafdes na UFF. onde 
cursou FORTRAN, Cdlculo Numdrico, Micro- 
processadores e Computadore: dignais. £ pro- 
fessor de BASIC na Microcenter e na UFF. 
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GLOBUS 

Alta performance 
para sistemas de 
processamento 
de dados. 

Impressora M-180 



Impressora matricial de impacto com 
velocidade de 180 cps 

Projetada para servir como periferico 
a qualquer sistema de 
processamento de dados. 
Desenvolvimento Globus, 
utilizando-se de tecnologia de ponta 
em impressoras matriciais. Grande 
flexibilidade de software, com 
operaqSo facil e performance 
garantida. Alem de todas as 
interfaces disponiveis, e compativel 
com sistemas IBM. 




Impressora M-340 X 



Impressora matricial de impacto com 
velocidade de 340 cps. 



A M-340 X e a nova designagao da 
M-200. Esta e a impressora matricial 
mais rapida disponivel no mercado. 

Devido a sua alta performance e 
confiabilidade tern merecido a 
preference para utilizagao em 
sistemas de processamento de 
dados. Possue interface para sistema 
IBM. A Globus produz linha completa 
de impressoras para todas 
aplicagdes, alem de dispor de pegas 
de reposigao para entrega imediata. 




GLOBUS OIGITOL S.R. 

(OUlFftMtNTOS PtRlftAKOS 



MUITO MAIS DO QUE MAQUINAS 
SIGNIFICASERVIQO 



Matriz e Fabrica: Rua Isidro Rocha. 1057 
CEP 21241 - Tel 372-4385 - Telex (021) 31991 
GLDG - BR - Vigario Geral - RJ - Brasil 
Filial: Rua Stella. 515 - Bloco H - Grupo 21 
CEP 0401 1 - Tels.: (01 1) 231 -2586/571 -4642 
Telex (011) 38688 - GLDG - BR 
Vila Mariana - S8o Paulo - SP 

VASTA REDE DE DISTRIBUICAO 



Poiicom/ZEZ 







INTEGRACAO NUM^RICA 




TODA A LINHA 
DE MICROS E 
MINICOMPUTADORES 



A informapdo nas pontas dos seus dedos 



Gerenciador de 
banco de dados 



StetemM opef a donate: 

MS-DOS (IBM- PC) CP/ 
M CP/M-86 CROMIX 
COOS MP/M MP/M-86 

O Cursor •nd«r«c*vel 
para o uao da funqdea 
fullscreen. 



Supnmento* 

Of. co. MagnaWco*. SMB. 16M8. BOMB. ale. 

Ditklt as. 5 1/4" «' simples a dupla faces 

Ebqu staa (varies msrcaa) 

fHa MagnsOca 600. 1200 a 2400 Pea 

files p/imprssaoraa. sMbra. dtgilab. dlabto, csntromc. 

etc. 

Certochoa Cobra 400 
Pastas a formu/erioa contmuot 



Automagao ~ 

de escritorios 



End. Rua da Lapa, 180 gr.1108 a 1110- CEP 
20021 — Rio de Janeiro — Tel.: (021) 221-3069 



Requerimentos do 

Slstema: 

□ (Mteroprocessadorae 8080. 
8085, Z80. 8086. 8088) 

□ 64K p; CP/M; 128K p/ CP/ 
M-86 a MS-DOS; 56K p / 
Apple II 

□ 2 Dlsketes cl mlnSno da 
126K cade 

□ Terminal c/80 colunas a 
cursor andalec4val 

□ Impressora com no mlnP 
mo 80 colunas. 



TRANSFORME A SUA 
MAQUINA DE ESCREVER 
OLIVETTI ET 121 
EM IMPRESSORA 
DE COMPUTADOR 



Coma Interface da DW 121 sua m£quina 
de escrever OLIVETTI Eletronica ET 121 
se transforma em uma impressora de alta 
qualidade para textos ou programas, sem 
alterar as caracterfsticas originais da rrd- 
quina. 

Instalado internamente a Interface conta 
com urn buffer de 2K bytes e uma s6rie 
de comandos especiais para a confecpao 
de textos, taiscomo: sublinhamento au- 
tomdtico, negrito automatic©, compri- 
mento de I inha programdvel e outros, po- 
dendo ser acoplado a qualquer tipo de 
MINI ou MICRO COMPUTADOR que te- 
nha safda SERIAL RS 232C/Standard ou 
Paralela 8 bits Centronics. 



Solicite maiores informapdes a 

□flISV 111 HEEL eletronica 

INDUSTRIA E COMERCIO LTDA. 

Uma Divisao da ESFEROMAC Ltda. 
Rua Antonio Comparato, 200 
Tels.: 532-01 54 e 240-4829 
CEP 04605 Sao Paulo - SP 



Pontos Discretos 

Carlos Alberto Mat tana 



F reqiientemente, nas experiences 
relacionadas com Fisica, Matema- 
tica e Engenharia, precisamos cal- 
cuiar a integral definida de uma fungao 
da qua] conhecemos apenas os limites de 
integragao e seus valores em pontos 
eqiiidistantes entre os limites. Para cal- 
cular um valor aproximado para a in- 
tegral, podemos usar dois mdtodos, co- 
nhecidos como regra de Simpson e re- 
gra do Trapdzio (mais informagdes sobre 
eles podem ser encontradas em qualquer 
livro de andlise num^rica). 

Para facilitar este cilculo, este pro- 
grama permite utilizar ambos os m6to- 
dos. Foi escrito em BASIC para o 
TK82-C mas poderd ser adaptado para 
rodar em qualquer outro micro. 

Vamos analisar um exemplo de apli- 
cagao. Suponhamos que queiramos cal- 
cular a integral de uma fungao F(X) en- 
tre os limites de integragSo a=0 e b=5, 
conhecendo os seguintes valores para 
F(X): F(0) = -1; F(0.5)= -0.675; 



F(l)=l; F(1.5)= 4.625; F(2)M1; 

F(2.5)=20 875; F(3)-35; F(3.5)=54. 
125; F(4)-79; F(4.5)M 10.375; 

F(5) —149. 

Apos a digitagao do programa e de- 
pois de pressionar RUN, aparecera na 
tela o nome do programa e um pedido 
para a entrada do intervalo H entre os 
pontos X. Devemos entao escolher qual 
o metodo a ser utilizado. Digitamos os 
valores de F(X) um a um, obtendo as- 
sim uma aproximagSo para a integral. 
No nosso exemplo, a integral vale apro- 
ximadamente 194.6875 empregando a 
regra do Trapezio, e 193.66667 usando 
Simpson . 



Carlos Alberto Gomes Manana estuda Fisica 
na PUC/RJ e 6 programador da Ajax Cia. 
Nacional de Seguros, trabalhando com a tin- 
guagem MUMPS em um Medidata M-2001. 
£ tambdm usudrio de um Apple II. 



1 






Pontos Discretos 

1 




1 LET N= 1 


41 GOTO 81 




2 LET S=0 


53 PRINT AT 6,25;CHR$ 151 




3 LET SP=0 


55 PRINT AT 9,0; "P(X" ;N-1 ; " )? 




4 LET A$="REGRA DE SIMPSON* 


81 




5 LET B$="REGRA DO TRAPEZIO" 


59 INPUT FX 




7 PRINT TAB 6 ; " I NTEGRACAO NUM 


61 IF N=1 THEN LET P0=FX 




ERICA"; TAB 6;"POR PONTOS DISCRET 


63 IF N/2=INT (N/2) THEN LET 


s 


OS" 


=S+FX 




9 PRINT AT 3,0; "INTERVALO ENT 


65 IF N/2=INT (N/2) THEN LET 


s 


RE OS PONTOS?"; 


P=SP+FX 




1 1 INPUT H 


67 PRINT AT 9,0; "OUTRO PONTO? 




13 PRINT 


(S/N)" 




15 PRINT AT 6,0; A$ ; " ->SIMP"; 


69 INPUT T$ 




AT 7,0; B$ ; " -> TRAP"; 


71 IF T$="N" THEN GOTO 77 




17 INPUT CS 


73 LET N=N+ 1 




19 IP C$="SIMP" THEN GOTO 53 


75 GOTO 57 




20 PRINT AT 7 , 25 ;CHR$ 151; 


77 LET I=HM4*S+2*SP-P0-PX)/1 


3 


21 PRINT AT 9,0; "F(X" ;N-1 ; " )? 


79 LET B$=A$ 




■» 


8 1 CLS 




23 INPUT FX 


83 PRINT TAB 6; "I NTEGRACAO NUM 


25 IP N= 1 THEN LET F0=FX 


ERICA"; TAB 6 ; "POR PONTOS DISCRET 


27 LET S=S+FX 


OS" 




29 PRINT AT 9,0; "OUTRO PONTO? 


85 PRINT AT 3,8;B$ 




(S/N)" 


87 PRINT AT 5,0; "N=“ ;N;AT 7,0 




31 INPUT T$ 


"H=" ; H 




33 IF T$=“N" THEN GOTO 39 


89 PRINT AT 9 , 0 ;" INTEGRAL -> 




35 LET N=N+ 1 


; I 




37 GOTO 21 

39 LET I=HMS*2-F0-FX)/2 


91 STOP 

■ 
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Na Clappy, alem de voce encontrar a melhor solugao para 
o seu problems, voce encontra tambem assistencia tecnica 
propria, cursos de programagao e operagao, consultoria, 
"softwares", perifericos, suprimentos e a 
implantagao de sistemas aplicativos 
comerciais e de apoio a decisao. 



APUCA T1V0S COMERCIAIS 

Contabilidade 

Controle de estoque 

Folha de pagamento 

Contas a pagar e a receber 

Alem de qualquer outra solugao que 

a Clappy pode desenvolver para voce. 

APUCA T1V0S DE APOIO A DECISAO 

Planilha Financeira 
Processamento de textos 
Mala Direta 

Cadastro de Clientes r 

Controle Financeiro. \ 



uOiTron 



AP II -Clappy 

CPU com 64 Kbytes, placa CP/M, 
2 drives, monitor de video 
Instrum e impressora de 
100 cps. 37 ORTNs mensais* 

• Taxa de leasing em 27.0284 



Disco 
Winchester 
5 Mb 



CENTRO: 



Av. Rio Branco, 12 loja e sobreloia 
Tel.: (021)253.3395 

CENTRO: 

Rua Sete de Setembro, 88 ■ loja Q (Galena) 
Tels.: (021) 222.5517 -222.5721 

COPACABANA: 

Rua Pompeu Loureiro, 99 Tels.: (021) 257.4398 - 236.7175 

Aberta diariamente das 10 as 20 boras e aos sabados das 10 as 15 boras. 

Estacionamento proprio. 



Venha a nossa lojaou solicite a vis 'ita 
de um representante. 














Conhega o perfU de sua divida domestica e adote estrategias eficientes 
para o trindmio renda/poupanga/consumo em seu micro da linha TRS-80 



Orcamento domestico 



Luiz Gonzaga de A/varenga 



U ma das tarefas mais ingratas 
a se rcalizar em tempos de 
dinheiro dificil £ o controle 
do orcamento domdstico. 
Colocar ordem no caos das finan 9 as 
pessoais as vezes pode ser tao 
complicado que se torna preferivel 
continuar na ignorancia de como os 
gastos se distribuem scgundo os itens 
de consumo. diversSo, invcstimentos, 
poupan^a, dividas, etc. 

Um controle or9ament2rio eficiente, no 
entanto.d a mola-mestra de quaJquer 
orgamza 9 ao que se preze, e o lar n£o 
pode ficar & parte dessa considera93o. 

E para fazcr este controle de or 9 amento 
de maneira eficaz, nada melhor do que o 
microconiputador. 

Ouando sc conhece o perfil da divida 
domestica. pode-se entSo adotar uma 
serie de estrategias eficientes para o 
trindmio renda/poupan 9 a/consumo, 
redimensionar os gastos segundo 
pnondades reais. bem como evitar 
despesas Superfluas. 

Um controle de contabilidade domestica 
nao necessita ser tSo sofisticado a ponto 
de afugcntar qualquer pessoa mcnos 
afeita as minucias do gcrenciamento 
contabil de uma empresa de grande 
porte. 0 mais importante e man ter sob 
controle alguns itens padrdes de gastos, 
os quais sao utilizados como parametros 
para se levantar o perfil da divida 
domestica. 



Controle de Orqamento Domestico 



10 G0T050 

20 FORE=1T0300:NEX1 :PR1NT3933," :F 0RE=1 I OlOO:NEXT 

30 PR I NT 3933, "EN TER" ; 

40 Lt= INKEYi : IFLt=""THLN2ULLSLCLS :RETURN 

50 'CONTROLE DE ORCAMEN 1 0 0OMESTIC0 - LU1Z 0. DL ALVAKLNGA. MA 
RCO 1V83. 

60 DIMY C5,5> 

70 J=1 

80 CLS 

90 Y=21:K0RX=0T012/:SL1 v X , Y ) ■ NEXT 
100 Y=28:F0KX=0r0127:SEI <X,Y> :NEXT 
110 PRINTCHKt (23) 

120 PRINT3526,"ORLAMLNIO DOMESTICO"; 

130 FOKXlTOiOUOiNEXT 
140 CLS 

150 F 0RS“i 1 05:F OK I “0 1 Ob : READA1 ( S r 1 ) :NLXI 1 ,'J 
160 INPUT"Guer Instrucoes <S/N>";XXi 
1/0 IFXX»-"S 1HEN1260 

180 INPUT’Quer lor arguivu de dados (S/N)";CLl 
190 IFLLtW"S"IHEN290 

200 PR INT"PREPAKL 0 CASSETE E DIG1TE 60":1NPUTNN 
210 IF NN< 600RNN J60THEN200 
220 CLS 

230 PRINT-'LENDO DADOS..."; 

240 I 0RB=1 T 05 

2b0 1NPU1M-1,R(B>.X<B) 

260 NLXTB 

2/0 INPUT** 1 ,FFt 

280 G0TO1410 

290 CLS: INPUT"0r camento referente ao mes de:";Fll 
300 CLS : INPU T"0ua 1 a renda prevt3ts";U 
310 CLS: PR INT "LIST A DL DESPESAS" ; 

320 F0RD=lT05sPR IN I : PR IN I At ( D , 0 / : NEX I 
330 PR IN I 
340 F0R1=1T05 

350 PR INT " < S1GA A NUMLHALAO DOS 1TLNS ) "sPRlNl " . 1 1 LH AN I LK ION :" 
; 0 " ) " 

360 lNPUT"Entre com o nuatr o" ; A( 1 ) 



OBJETIVO 



0 programa aqui apresentado tern como 
objetivo permitir levantar o perfil de 
uma divida domestica segundo itens 
padronizados, comuns a grande maiona 
das pessoas de classe tnddia. Isso porque, 
em geral, a rcceita provdm umcamente 
de um salano percebido, o que torna 
interessante detetar os itens mais 
sujeitos a provocar deficits no 
or 9 amento. 

Com ele. pode-se fazer uma previsao 
antecipada dos gastos do mes e, 
posteriormente, confrontar esta previsao 
com os gastos efetivamente realizados. 
Os itens utilizados sSo formados por 
subitens que cobrem toda a gama de 
despesas domesticas. Cada item possui 
subitens que s£o comparados 
percentuaimente com a renda prevista; 
s5o apresentados tambdm subtotals 
parciais e subtotals acumulados. Alem 
disso, uma listagem completa pode ser 
pedida a partir dos itens ou subitens. 



GASTOS EM GRAFICOS 



0 programa apresenta, tambdm, um 
grafico em barras, o qual permite uma 
facil e eficiente visualiza 9 §o da 
distribu^o dos gastos domdsticos, o 
que 6 util para se loealizarem os itens 
de maior peso no or 9 amento. 

Foi prevista a grava 9 ao (em fita cassete, 
para arquivo) umcamente dos itens 
principals de controle, pois 6 por sua 
compara 9 So que se pode prever e 
controlar a evolu^o da divida 
domdstica. 

0 progama Controle de Orgamento 
Domestico - 6 auto-elucidativo e nao 
oferece dificuldades quanto ao seu 
processamento. Nffo se cogitou incluir 
cal culos utibzando vanavcis de dupla 
precisao, entre outras razoes, pelo 
pequeno numero de zeros da maiona 
dos salanos... 

A grava^o e leitura dos dados e feita 
em pouco tempo. Como cautela, devem 
ser usadas fitas de boa qualidade, com o 
que se podera evitar a introdu 9 ao de 
erros durante a grava^o. 



Luiz Gonzaga de Alvarenga e tdcnico de Tele- 
comuni ca goes e trabalha na Embratel. em 
GoiSnia, onde reside. 



3/0 IF'A (IXIORAU) >b THEN36U 
380 CLS 

390 PR 1NTAI ( A< 1 ) ,0) 

400 F ORQ- 1 T 05 : PR IN t :PR I NT At ( A ( I ) ,0) : NEXT : PR INT 
410 PR lNT"Ent r ada de valores?" 

420 INPUT" <S/N)";Rt 

43U IFRt< >"S"THENCLS:U0T0310 

440 CLS 

450 F0RQ=1 T Ob: PR lNTAt(A(l ) , <1 ) 

460 INPOT"Quant ia:";Y(I f Q> 

4/0 PR !NT"VaIor correto (S/N)"; 

480 1NPUTE1 : IFE1="S" THENCLS : GOT 0500 
490 1FE4="N"THENCLS:G0T046D 
500 L=L* Y ( 1 , Q ) 

510 V=V«Y(I,Q) 

520 R< 1>=V 
530 NLXTW 

540 PRINT 3603 , "RLNOA : Cr 1" ;B * PR IN I 3660 , "SUB I 0 1 AL ACUhULADu : C 
rt";L: IFL >B f HENPR IN I 3693 , "£XCESS0"ELSL3b0 

550 PR1NTB/25, "SUBTOTAL PARC1AL: Cr t" ; 0 : X ( 1 1 'INT ( ( V/B i • 10U ) : Z~ 
Z+X l 1 ) : IFX < I ) > 100THENPRXN 1 8/5/ , "EXCESS0"ELSEPR1NT 3/55 ,X ( 1 > "X" 
560 INPUT"Outro item ( S/N > " ; Dt : 0^0 . 1 : IF 0=5 i HLNW= D LI60T066U 
5/U W=B-L 

580 lFDtO"S"THtN66U 
590 V=0 

600 CLS: NEX I 1 : GOT 031U 

610 DA I A "1 TAXAS PUBL1CAS ■ , AGUA, LUZ , 1 LLEF ONL , GAS , 1MP0S1 OS 
620 DAfA "2 GAS I 05 C/IMOVEL" , PRLSTACAO, ALUGULL , CONDOM IN 10, CO 
NSER TOS , REF OR MAS 

63U DATA 3 0AS10S F IXOS" , ESC 01 A3 , LO JAS , liANLOS , CLUBES»hLSADA 
S 

64U DA1A "4 GAS t OS DI VLKSOS" , GASOL 1 NA/TKANSPOR FE .SUPER nERCrt 
D0/FEIRA,FLRIA5/V1AGLNS/LAZER , JORNAIS/LIV./REVlSfAS.bLRVlLoS D 
OMLSTICOS 

650 DATA "5 - GASIOS LVLN I UA1S" , ROUPAS/UNll ORMLS , MAI LK 1 AL ESLO 
LAR ,DESP . MEDICAS/F AKMAC1A , CONSER 1 OS DIVER30S,NA0 ESPEC1* ICADO 

S 

660 PklNT-"E&colhd relacao de itene." 

6/0 1NPU F"RLLACA0 TOTAL 1 1 .• PARC! AL <2> AMBOS <3>";K 
680 1 PK i loRK >31 11LN660 
690 ONKGO 1 0/00 , /GO ,870 
7 00 I OR 1 = 1 TOG 
/10 r0RQ=lT05 

720 PRINTAt ( At 1 > ,(i> Crt";Y<l,U> 

730 H(I > = IN I < tXt I>«31 >/10U> 

740 NEX1Q 

750 IF I=3THENPR INT8V2A,"TECLE < EN TER > P/CON 1 1NUAR" SG0SUB20 

/60 NEX II 

770 IT J=1 IHLN910 

780 PR IN T3926 , "1 ECLE < ENTER) PARA CONI INUAIi * : OOSUB2U 
790 PRINI 

80U PRINT 325, "MLS DE: " ; F F t 
810 FOR 1 = 1 1 00 

820 PKlNTAt(A<I) r U>," Crt‘;RU), 

830 H(I)=lNr<(X<I)«31>/100> 

840 PR INI X < 1 ) ; "X" 

850 NEXri:IFK=2THEN880 
860 IF J= 1G0T0880 
8/0 J=-J:G0T070Q 

880 PR 1NT8660, "TO I AL PERCENTUAL s" ; , Z ; "X" 

890 IF L >B THEN900ELSEPR 1NT8832 , "RENDA PRLVISIA DLCI’LSAS - Cr't 
U: GOT 0910 

900 F H= <L-B):PRINT 8832 , "DEF IC1 T DL :Crt"FH 
910 INPUT"Quer rever relacao de itens IS/Ni"; Tt 
920 IFTt="S"THENJ=i:G0T0660 

930 INPU T"Quer grafico eiu barra dps dados (S/N>";G'l) 

940 IFGt< >"S"THEN1 120 ELSE950 
950 CLS 
960 T=100 

970 F 0RX=0T0120 : SET < X , 44 > s NEXT 
980 FOR Y=0 f 046 : SET ( 10 , Y ) :NEXT 

990 PR I NT 3968 , "T .PUBL . G.IMOV. G.FIX. G.DIV. G.EVEN."; 
1000 F0RU=256T0896STEP64:PRINfaU, T; : T=T-10:NEXT 
1010 X=21 
1020 FORI=1TOO 

1030 .F0RY=43T0(43-H( I > >STEP-1 
1040 SET ( X , Y ) 

1050 NEXTY 
1060 X=X+18 
1070 NEXT I 

1080 PRINT380,"TECLE <£> PARA TERMINAR"; 

1090 FOR T = i T0300 : NEXT : PR INT 387 , " "; :F0RT = 1T0100:NEXT 
1100 PR INT387 , "3" ; 

1110 IFINKEYt< >CHR1 ( 64 > THEN1090 

1120 CLS: INPUT"Quer arguivar os dados <S/N)";Zlt 

1130 IFZH="S"THEN1 1 40 ELSEEND 

1140 PR INT"PREP ARE CASSETE E DIGITE 80" 

1150 INPUTF 
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ORQAMENTO DOMESTICO 




Os Kits de Micro Chegaram! 

APPLEKIT - Kit de microcomputador tipo Apple® 



Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 



macrocontrol 

Sistemas de Controles 
Tels.: (Oil) 814-0446 e 814-1110 
Sao Paulo - Brasil. 



APPLEKIT 65020 



1160 IFF < 800RF >80THEN1 150 
1170 CLS 

1180 PRINT"GRAVAND0. . 

1190 F0RB=iT05 

1200 PRIN-Ttt-1,R(B),X(B) 

1210 NEXTB 

1220 PRINTM-1 ,FFS 

1230 CLS 

1240 PRINT"TLRMINADA A GRAVACA0" 

1250 END 

1260 CLS:PR1NT"A final idade dcste programs e’ a de ajudar a di 
minuir ou supri 

1270 PRINT"mtr possiveis deficits no orcamento domestico. Loin 
ele, podese " 

1280 PRINT"control ar uma ser i e constante de Itens, dlstribuido 
s segundo uma" 

1290 PRINT"ordem de gastos rot ineiros. Cada item tern varios 
sub- itens, os " 

1300 PRINT"quais cobrem toda a gama de despesas domesticas." 
1310 PRINT 

1320 PR INT"0 programa permite uma comparacao percentual entrc 
os diversos i" 

1330 PRINT"tens, seja atraves de listagem dos valores, seja at 
raves de gra-" 

1340 PRINT 0926 , "TECLE < ENTER > PARA C0NTINUAR":G0SUB20 

1350 PR INT"f i co em barras. Com esta comparacao, serao local iza 

dos os itens " 

1360 PRINT"de maior peso no orcamento." 

1370 PRINT 

1380 PRINT "F inal raente , os dados pqderao ser arguivados em fita 
, para ver i f I " 

1390 PR INT"cacao futura." 

1400 PR I NT 3926 , "TECLE <ENTER > PARA C0NT INUAR" :G0SUB20: CLS : GOTO 
180 

1410 CLS 

1420 PRINT :PR I NT 325 , "MES : " ;FF1 

1430 PRINT sF0RI = l T05 5PRlNTA4(I,0),"CrS";R(I),X<I);"Z"5NEXT 
1440 PRINT tPR INT"QULR V0LTAR A0 PROGRAMA PRINCIPAL?" 

1450 INPUT" (S/N)";GH» 

1460 IFGHK >"S"THENLNDELSE290 



F SEJANOSSO 
COLABORADOR! 



Escreva um bom artigo sobre: 

* Macetes de programagao 

* Dicas sobre seu equipamento 

* Sistema operacional, etc. 

E envie-o para nossa redagao 
Os artigos aprovados ser3o 
remunerados e os outros, 
devolvidos. Mas nao se 
esquega de mandar seu nome 
completo, enderego e telefone. 



VENHAFAZER 
NOTlCIA CONOSCO! 

VHicro 



APPLEKIT 65100 



APPLEKIT 65000 



R 10: Rua Visconde Silva. 25 — Botafogo 
RJ, CEP 22281 . tel.: (021 ) 286-1 797 a 
246-3839 

SP — Rua Oliveira Dias. 153 - 
Jardim Paulista — SP, CEP 01433, 
tel.: (01 1 ) 853-7758 e 881 -5668. 



As informagoes 



Assine 



Informatics & 
Administrate 






ao seu alcance 



(Se voce noo quiser cortar sua revista, tire uma xerox do cupom abaixo) 



nome 



empresa 



profissao/cargo 



cidode 



estado 



Assinatura anual 

C] Informdtica & Administrator) 

E] Micro Sistemas 

| | Informdtica & Administracdo 4- Micro Sistemas . 



Junte a estes dados cheque nominal 6: 

ATI Editora Ltda. 

R. Oliveira Dias, 153 — SSo Paulo — SP — CEP 01433 
Tel. : (01 1 ) 853-7758 e 881 -5668 

R. Visconde Silva, 25 — Rio de Janeiro — RJ — CEP 22281 
Tel.: (021) 286-1797. 246- 3839 e 266-0339 
(seu recibo ser6 enviado pelo correio) 



APPLEKIJ 65000 Placa de circuito impresso. [ APPLEKIT 65010] Conjunto de soquetes. conectores, resistores e ca- 
pacitores. f APP LEKIT 65 020 , C onjunto de semicondutores, TTL’s, LSI e memorias (As memorias EPROM sSo forneci- 
das com gravaga o), f APPL EKIT 65100 Conjunto de teclado alfanumerico com 52 teclas e componentes. circuito im- 
presso. APPLEKIT 65200] Fonte de alimenta<;3o tipo chaveado. I APPLEKIT 6530 0 1 Caixa de microcomputador em 
poliuretano. I APPLEKIT 65400 ! Manual de montagem e teste de micro. 
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APPLEKIT e 100% compatrvel com os cartOes perifericos da MICROCRAFT. 



Apple e marca reglstrada de Apple Inc. 











Aprenda a I guns macetes de programagao e de uma injegao de velocidade 
no processamento de seus programas em BASIC 



Otimize seus programas 

em BASIC 

Carlos Alberto Yamana 



A linguagem de programa^So mais 
comum que existe £, sem diivi- 
da, o BASIC, simples na sintaxe 
mas com for?a suficiente para 
executar uma sdrie de opera^Ses diferen- 
tes. Geralmente, porem, ele e lento na 
execu9So de programas. 

Um dos motivos £ o fato de que a 
grande maioria dos tradutores BASIC 
estd implementada atrav^s de interpre- 
tadores armazenados em memdria ROM, 
os quais, em grande parte, n3o produ- 
zem cddigo diretamente executavel. 
Lembre-se de que o interpretador e um 
programa que executa as instru9oes de 
um programa-fonte, linha por linha, en- 
quanto que o compilador converte o 
programa-fonte como um todo, de lin- 
guagem de alto nivel para linguagem de 
mdquina. 

Existem muitos programas para res- 
solver um determinado problema; alguns 
podem ser mais rdpidos que outros, al- 
guns necessitam mais memdria que ou- 
tros, alguns sofrem mais facilmente mo- 



difica5des. 0 programa ideal deveria ter 
todas essas qualidades, porem nem sem- 
pre se consegue obter um programa ideal: 
os fatores que o tornam ideal nao sao 
mutuamente independentes. Uma melho- 
ria na velocidade do programa quase 
sempre resulta em um aumento de me- 
moria utilizada; algoritmos elegantes sao 
quase sempre dificeis de ser entendidos... 

Otimizar significa escolher a melhor 
solu9ao. Assim, otimizar um programa 
de computador significa escrever um 
programa que tenha a maior velocida- 
de possivel, ocupe a menor quantida- 
de de memdria possivel e que possa 
sofrer modifica9des sem muitas dificul- 
dades. Mesmo assim, com o crescente 
aumento da capacidade de memdria dos 
micros, o aspecto de redu9ao do uso de 
memdria pode ser deixado um pouco de 
lado. Quanto ao aspecto da facilidade de 
um programa sofrer modifica9oes, ressal- 
tamos aqui que muitos programadores 
buscam o inverso, a fim de impedir pos- 
siveis copias. 



Desta forma, otimizar um programa 
em BASIC Interpretado significa, acima 
de tudo, aumentar a sua velocidade. Dis- 
cutiremos aqui algumas tecnicas de pro- 
grama9ao que vao melhorar a perfor- 
mance de programas em BASIC quanto 
3 sua velocidade. 



1 - A escolha do algoritmo certo 

Antes de pensar em aumentar a velo- 
cidade de um programa, devemos verifi- 
car se escolhemos o algoritmo certo para 
solucionar o problema. Um exemplo bas- 
tante eloqiiente £ quando calculamos 
um determinante de uma matriz de or- 
dem n a partir de sua defmi9ao. 

Consideremos como esfor90 compu- 
tacional o numero de opera9oes aritm^ti- 
cas envolvidas na execu9§o de um algo- 
ritmo qualquer. 0 calculo de um deter- 
minante de uma matriz de ordem n 
requer, a partir de sua defini9ao, a exe- 
CU930 de n! (n-1) multiplica96es e de 



Ordem do 
determinante 


Esforgo 

computacional 


1 

Tempo de 
execugao 


5 


599 


0,006 s 


10 


36287999 


3628 s 


15 


1 , 96x 1 0 1 3 


62 anos 


20 


4,86x10 19 


154 milhoes 
de anos 



Figura 1 




Figura 2 
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n!-l ad^oes, totalizando um esfor90 
computacional de n!n-l opera95es arit- 
meticas. A figura 1 registra o esfor90 
computacional e o tempo de execu9ao 
das opera95es aritmeticas, supondo, pa- 
ra simplificar, que as mesmas sejam execu- 
tadas a velocidade de 1 OOrls (100xl(H>s) 
cada. 

Observamos que, na verdade, o tem- 
po gasto pelo computador e bem maior, 
pois apenas foram consideradas as opc- 
odes aritmeticas. H3, no entanto, me- 
todos de cdlculo de determinantes (por 
exemplo, o de triangularizagao de Gauss) 
que consomem um curto espa9o de tem- 
po. Isto significa dizer, que os exemplos 
demonstrados na figura 1 , serviram ape- 
nas para mostrar que o tempo de progra- 
ma9§o pode chegar a valores altos se n5o 
soubermos escolher o algoritmo certo 
para resolver um problema. 

2 - Opera9oes aritmeticas 

Cada opera9ao artimetica (adi9fo, 
subtra9do, multiplica9ao, divisao e po- 
tencia9ao) necessita de um tempo fixa- 
do para ser feita. 0 conhecimento do 
custo de cada opera93o podera ajudar o 
programador a escolher o melhor modo 
de construir suas opera96es aritmeticas. 
Por exemplo, no caso da potencia95o: 

10 X=Y* *2 

demora mais que 

10 X=Y*Y 

Multiplica 930 £ mais demorada que adi- 
9ao; portanto, 

10 X=Y*2 

deve ser substituido por 

10 X=Y+Y 

Divisao £ mais lenta que multiplica9fo; 
portanto, 

10 A=X/2 

demora mais que 

10 A=X* .5 

0 tempo necessario para cada opera- 
930 depende de cada maquina. A figura 

2 mostra, por exemplo, valores relativos 
ao tempo medio de execu9So de algu- 
mas fun9oes matematicas incorporadas 
no micro HP-85. 

3 — Constantes x vari3veis 

Quando usamos um interpretador, e 
preferivel utilizar variaveis ao inv£s de 
constantes. Assim, 

10 TOR J=0 TO N 
20 S=S+29 34 3 
30 NEXT J 

tern um tempo de execu9ao maior que 

b P=29 34 3 
10 FOR J=0 TO N 
20 S=S+P 
30 NEXT J 



Note que houve expansao de uma li- 
nha; porem, o que ganhamos em veloci- 
dade compensa o dispendio de mais me- 
mdria. 0 tempo poupado depende do 
numero de di'gitos da constante, do nu- 
mero de itera9&es e, se por acaso a cons- 
tante for uma fun9ao com argumento 
constante (por exemplo SIN 30), do ti- 
po da fun9ao. 

4 — Subexpress oes comuns 

Uma subexpressao comum pode ocor- 
rer dentro de um programa e consumir 
tempo e memdria. A seguinte seqiiencia 
contem a subexpressao comum X+Y : 

10 M=X*Y*W 
20 N=R+X+Y 

mas uma outra vers3o poderia calculd-la 
somente uma vez: 

s T=X+Y 
10 M=T+W 
20 N=R+T 

D3 para perceber que, embora a segunda 
versao seja uma linha maior, ela contdm 
tres adi9oes, enquanto que a original, 
quatro. O tempo poupado depende, por- 
tanto, do numero de subexpressoes que 
podem ser substituidas. 

5 - Loop 

Procure remover expressoes indepen- 
dentes do la90 FOR-NEXT. Por exem- 
plo, no la9o 

10 FOR 1-1 TO 100 
20 A=A+B{ I ) • ( X*X+3* 

X+2) 

30 NEXT I 

a expresSao (X’9(+3 , 9(+2) £ calculada 
toda vez que o la9p FOR £ executado. 
Para maior eficiencia, tais comandos de- 
vem ser recodificados da seguinte forma: 

S C=X*X+ 3*X*-2 
10 FOR 1=1 TO 100 
20 A=A+B(I)*C 
30 NEXT 1 

Cada execu9ao de um la90 FOR- 
NEXT necessita, basicamente, uma adi- 
930. uma compara9ao e uma opera9ao de 
desvio para a variavel definida no FOR. 
Assim, o seguinte segmento de progra- 
ma 

10 POR P=1 to 100 
20 X(P)=K 
30 NEXT P 



deve ser recodificado para: 

10 FOR P= 1 TO 99 
STEP 2 
20 X(P)=K 
30 X( P+ 1 )=K+ 1 
40 NEXT P 

diminuindo o tempo necessario de cada 
itera95o em 50%. £ evidente que, usan- 
do esta mesma tecnica, podemos reduzir 
gradativamente o tempo de execu9ao, 
porem 0 nosso objetivo £ apenas iius- 
trar a tecnica. 
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CIENCIA MODERNA 
COMPUTAQAO 



A Unlca Especializada em Livros 
• Revistas p/ Microcomputacao 



Publicacoes para VIC-20 .3 COMMODORE 64 


• COMPUTE'S FIRST BOOK FOR VIC-20 iCompulei 


28490.00 


• 50 Outstanding PROGRAMS FOR THE VIC-20 
(Hatnell) 




• GETTING ACOUANTED WITH YOUR VIC-20 
(Hainelli 




• 34 VIC-20 Computer Programs lor Home School 
and office (Adiert 




• 101 Programming Tips and Tncks (or me VIC-20 
ana Commodore 64 


19.690 00 


• Masienng the VIC-20 (Jones) . 


32 890 00 



• 1 Speak Basic lo My VIC-20 (Jones). 18590.00 

• Arcaoe Games lor me VIC-20 iRamsnaw) 25 440.00 

• Spnte Graphics lor the Commodore 64 (Larsen) 33.495 00 

• Commodore 64 Gelling me Mosi from il (Onoskoi 32.890 00 

• Commodore 64 and VIC-20 (Haskell) 30 890.00 

• Using me Commodore 64 in me Home (Librach) 24 090 00 

• The Commodore 64 Idea Book (AHL) 19.690.00 

• The Working Commodore 64 (Lawrencei 21 890 00 

• The Easy Guide lo Your Commodore 64 iKascmen 21 890.00 
■ Vic Basic User-Fnendly Gu.de Graphics Color 

and Sound (Zamora) 32 890.00 

• Tricks lor Vies (Roberts) 21 890.00 

> Kids and the VIC 43.890 00 



Visite-nos ou pega uma lista do 
nosso estoqueespecifica para seu micro. 



Aienoemos lambern por Reemb Postal e Vang 



Av Rio Branco. 156 — loja 127 — subsolo 
Rio de Janeiro — Tels 262-5723/240-9327 



2748845 



VOCE TEM UM MICRO? 
NOS TEMOS 

/uprim<Lnto 

DISKETTE 5 1/4” E 8” 

FORMULARIO CONTlNUO 

FITA IMP RES SO RA 

FITA K-7 CURTA DURAgAO 

ETIQUETAS ADESIVAS 

PASTA P/FORMULARIOS 
80 E 132 COL. 2 

W 

ARQUIVOS EM ACRlLICO, c 
RACKS E PASTAS 
PARA DISKETTES. 

REBOBINAMOS QUALQUER FITA 
PRONTA ENTREGA 
QUALQUER QUANTIDADE 
GARANTIA E QUALIDAOE. 



yuprlmc.nto 

RUA VISCONDE OE PlRAJA. 550 - LOJA 202 
(021) 274-11845 (021) 246-1180 BIP 36X8 
IPANEMA RIO (011) 815-3344 BIP 587A 
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OTIMIZE SEUS PROGRAMAS EM BASIC 



6 - Uso indevido de GOTO 

0 uso indevido de GOTO pode oca- 
sionar dificuldades na hora das modifica- 
9 &es e no entendimento 16gico do progra- 
ma. Um exemplo de mau uso de GOTO 
que ocorre freqiientemente 6: 

10 IP A»B THEN 30 
20 GO TO 40 
30 A=A+N 

40 

que deve ser mudado para: 

10 IP A*B THEN 30 
20 A=A+N 
30 

Uma simples reversao da 16gica do 
comando IF... THEN aumenta a com- 
preensao e economiza tempo e memoria 
do programa. 

7 - Matrizes 

Opera 9 oes com matrizes sao usadas 
em muitos programas. Por exemplo: 

10 POR 1*1 TO 10 
20 POR J=1 TO 10 
30 A( J , I 1=3 
40 NEXT J 
50 NEXT I 
60 POR 1=1 TO 10 
70 A(I,I)=2 
80 NEXT I 



Neste exemplo, existem duas opera- 
9 oes na matriz A. Primeiro, cadaelemen- 
to da matriz recebe o valor 3; depois, a 
diagonal A(l.l) a A(I0,10) recebe o va- 
lor 2. Cada loop requer um numero de 
testes atd seu desfecho. Assim, a linha 
40 sera alcan 9 ada 100 vezes, a linha 50 
dez vezes e a linha 70 tambem dez vezes. 
O segundo loop, no entanto, pode ser 
incluido no primeiro, reduzindo assim o 
numero de testes. Alem disso,vamos tro- 
car as constantes por variaveis: 

10 X=2 
20 Y-3 

30 FOR 1=1 TO 10 
40 POR J=1 TO 10 
50 A(J,I)=Y 
60 NEXT J 
70 A( 1 , 1 )=X 
80 NEXT I 



CONCLUSAO 

Existem muitas outras dicas que de- 
pendem do tipo e da complexidade do 
problema com que se estalidando. Aoti- 
miza 9 ao d, portanto, uma te'cnica que se 
aprende gradativamente. 

Outro aspecto a ser levantado 6 a pos- 
sibilidade de se escrever um programa 



em linguagem hibrida BASIC/Assembler, 
objetivando substituir os comandos mais 
lentos em BASIC por sub-rotinas Assem- 
bler, com conseqiientes ganhos na velo- 
cidade de execu 9 ao de um programa. Pa- 
ra quern quiser aprofundar-se no assun- 
to, recomendamos a leitura dos livros ci- 
tados na bibliografia. 

BIBLIOGRAFIA 

• - GRATZER, George A. e Thomas G. 
- Fast BASIC beyond TRS-80 BASIC , 
Ed. John Wiley Et Sons, 1982. 

• - HEHL, Fortran - Tecnicas prdticas 
e eficientes em programagao, Livros 16c- 
nicos e Cienti'ficos Editora S/A, RJ, 
1974. 

• - HP-85 - Especificagoes tecnicas, 
Catalogo do fabricante. 

• - SALVETTI, Dirceu Douglas - To- 

picos de calculo numerico — Apostila 
do IME/USP, 1982. m 

Carlos Alberto Yamana d estudante de Enge- 
nharia na Escola Po/itdcnica da USP* de Tec- 
nologia em Processamento de Dados na Facul- 
dade de Tecno/ogia da UN ESP. 
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WX# TARDE para ler 

AA\nrn 



Seu pedido pode ser feito 
por carta, indicando 
quais os numeros 
atrasados que voc£ quer. 



Acrescente a este um cheque 
cruzado, nominal a ATI 
Editora Ltda., no valor 
correspondente ao seu 
pedido. 



• E nao se esquepa de incluir 
o seu enderepo para 
que n6s possamos 
fazer a remessa. 



A qui estao os nossos enderecos: 



AITI I k Rua Visconde Silva, 25 — Botafogo — Rio de Janeiro — RJ — CEP 22281 — 

Tels.: (021) 286-1797, 246-3839 e 266-0339. 



Rua Oliveira Dias, 153 - Jardim Paulista - Sao Paulo - 
SP - CEP 01433 - Tels.: (011) 853-7758 e 881-5668. 



C0D/G0 DE 
MAMINA 
JK E CP 200 

por Delio Santos Lima 

mesmo autor de: 

45 PROGRAMAS PRONTOS PARA RODAR EM TK 82C 
E NE Z8000 

APLICAQOES SERIAS PARA TK 82C E CP 200 

30 JOGOS PARA TK 82C E CP 200 

SINCLAIR 8K ROM — DISASSEMBLY COMPLETO 
COMENTADO 

Ensina o Assembly do Z 80 

Em um unico volume, instrupao por instrugao, em exemplos praticos, para aqueles que en- 
tendem c Basic e possuem um TK, CP, NE ou ZX. 

Com muitos macetes da ROM 

Todas as diferengas entre as ROMsdos Micros TK, NE, CP e ZX. 

As principais rotinas da ROM, como sub-rotinas de programas, inclusive as aritmeticascom 
ponto flutuante. 

Mais de dez programas 

Mesmo sem estudar o Assembly do Z80 voce podera desfrutar desta colegao de programas 
em codigo. Todos testados e comentados. Micron Pac, Labirinto, Bombardeio, Contadores 
de pontos, de tempo, Som por Software, DataFile, Merging, Renumber, Save Display, 
etc... etc... 

Tabelas de conversao 

Mnemonicos para Hex, Hex para Mnemonicos, Decimal para Hex, Hex para Decimal 



Um dicionario do Assembly Z 80 

... E MAIS UMA EXCLUSIVA TABELA POSTER DE BRINDE 



Despachos para todos os Estados mediante Ordem de Pagamento ou Cheque Nominal 

45 PROGRAMAS PRONTOS PARA RODAR CrS 5.500.00 30 JOGOS PARA TK E CP 200 ‘ Cr$ 6.000.00 

APLICACOES SERIAS PARA TK 82C E CP 200' Cr* 7 500.00 "CCDIGO DE MAQUINA PAHA TK E CP 200 Cr* 9 000.00 





MICRON ELETRdNICA COM. IND. LTDA. 



Cx. Postal, 100 - CEP 12200 - S. Jose dos Campos -SP 







rodada /MS 



Voce tambSm acha que nao 6 capaz de aprender telegrafia? Trate de 
mudar de opiniao: o seu micro da I inha TRS-80 4 agora o seu... 



Professor Picapau 



Roberto Quito de Sant' Anna 



M ICRO SISTEMAS inaugura a RODADA MS, 
ponto de encontro para radioamadores ligados 
em microcomputa 9 ao, cujos objetivos podem ser 
sintetizados em duas palavras:unir pessoas eideias 
para dividir conhecimentos e experiendas, caracterfstica da 
atividade radioamadoristica. 

Durante as Oltimas edi^oes de MS, temos publicado traba- 
Ihos orientados para o radioamadorismo, ao mesmo tempo em 
que, atrav^s de chamadas, mala direta a LABRE, as suas 
seccionais e as prindpais entidades radioamadoristicas do 
Brasil, bem como at raves das faixas, solidtivamos a divulga^o 
de nosso proximo lan^amento. A res post a chegou materializa- 
da em dezenas de cartas, telefonemas e contatos via ridio, e 
assim resolvemos lan 9 ar a primeira RODADA MS, que, con- 
forme a rea^ao dos leitores e prindpalmente as colabora 9 Ses 
recebidas, evoluiri para uma sefao permanente. 

A tftulo de sugestao, estamos corujando aplica^des para re- 
gistro de comunicados, confecqio de QSL, transmissao/recepfao 
de CW/RTTY, rastreamento de satdites, apura^ao de resultados 



de contestes etc,, etc., para a linha Sinclair, Apple ou TRS-80. 
Todos os trabalhos serao apredados, testados e, se aprovados, 
pu Mica dos com os devidos creditos ao colaborador. As entida- 
des radioamadoristicas solidtamos tamWm o envio regular de 
seus Boletins Informativos. 

Mesmo sob o risco de omitir alguma referenda, quero res- 
saltar o incentivo recebido de virios companheiros e entidades, 
d tan do-os na ordem em que mevemi memdria: PY3IY-PivattO 
(DS/RS), PYIEWN-Ron (CWRJ), PYIOZ-Paulo (DS/RJ), 
PY2AC-Alfredo (DS/SP), PY2DRD-Rodrigues, PYIBCN-Ma- 
chado, PYIBGN-Flivio, PYIFO-Evio e PYIAFA-Gil (AN-EP), 
dentre muitos outros. 

Agradecendo qualquer contesta^ao ao nosso CQ, sintoniza- 
mos a freqiienda da RODADA MSI 
PYIDWM-Quito 

PS: para troca de ideias, posso ser encontrado quase que dia- 
riamente na Patrulha da Madrugada, em 7055 KHz, a partir das 
22.00 PY. Quern sabe poderiamos criar a Rodada do Micro?... 



Como a maioria dos colegas, desde 
que obtive o meu primeiro indicativo, 
em 1965, sempre pensei que telegrafia 
era uma coisa dificil e que, apesar das 
no 95 es bdsicas adquiridas por for^a 
de minha forma^o profissional, jamais 
seria um praticante dessa exdtante 
modalidade de comunicasSo, na qual, 
de resto (lamentavelmente, como a 
maioria dos radioamadores), nio via 
nenhuma importancia. O fato 6 que, 
ap 6 s cerca de 1 5 anos de intensa 
atividade, gramas a PY 1 BDU- Walter - 
a quern devo uma boa parte de 



minhas vit 6 rias como radioamador — 
e a PYIBGI-Adolpho que, numa noite, 
em uma inesquecivel rodada juntamente 
com PY 1 BQJ -Julio, com infinita 
paciencia, mostrou-me o caminho das 
pedras, fmalmente resolvi aderir ao 
CW, entrando nas subfaixas. 

A partir dai, com a prdtica assidua, 
a colabora 9 ao dos radioamadores de 
todo mundo, cujo maior prazer 6 atender 
imediatamente aos PSE QRS dos 
novatos, e gra 9 as ainda a maravilhosa 
acolhida no CWRJ proporcionada por 
PY 1 EWN e PY 1 BVY, iguais no nome 



- Ronaldo - e no entusiasmo, flcou 
definitivamente consolidada a 
minha preferencia pelo Picapau. 

No que diz respeito a importancia 
do CW, remeto o leitor as piginas 
de AN-EP, em busca dos brilhantes 
editorials de PYIAFA-Gil e artigos de 
vinos abnegados colaboradores, assim 
como is revistas especializadas de 
todo o mundo. Quanto i dificuldade, 
ela existe de fato em maior ou menor 
grau, mas 6 grande o numero de 
companheiros que, de alguma forma, 
procuram minimiza-la, 



O programa, por partes 



. Linha 80 — leitura, nas instrufoes 
DATA 640-680 e armazenagem na 
matriz string G$ dos cddigos telegri- 
ficos admitidos, correspondentes aos 
cddigos ASCII 44 a 90, exceto os de 
58 a 62 e 64 (ver manual da Proldgi- 
ca, apendice C); notar que, em cada 
grupo, 1 corresponde a. um tra^o 
(DAH) e 0 a um ponto (DIT), enquan- 
to que os cddigos excluidos s5o repre- 
sentados por 2 . 

. Unhas 90-1 10 - defini^o das men- 
sagens de advertencia. 

. Unhas 140-150 — leitura e confe- 
rence dos cddigos dos caracteres gra- 
ficos que vSo constituir a parte visual 
da abertura do programa, ou seja, a 
impressao dos caracteres telegrificos 
DE PY1DWM; voce pode substituir 
os DATA 700-750 pelos cddigos ne- 
cessarios & impressio de seu prdprio 
indicativo, desde que mude tarn bem 
a string ZZS da linha 80, a instru^io 
DATA 650 e o U 90 da linha 1 10. 

. Unhas 230-240-leitura e conferen- 
ce dos cddigos-objeto da rotina de 
som, nas instru^des DATA 760-800. 

. Unhas 270-300 - abertura do pro- 
grama: impressio dos caracteres gri- 
ficos e transmissio simultanea em 
CW do texto DE PY1DWM; prote- 
q&o das duas primeiras linhas da tela. 

. Linhas 320-590 — rotina de trans- 
missao, detalhada a seguir. 

. Unhas 370420 — parametros que 
vao definir a velocidade de transmis- 



sio: intervalo entre caracteres (ICAR), 
intervalos entre pontos e tra^os (ID), 
dura 9 a o do tra 9 o (DAH) e dura^o 
do ponto (DIT). O mitodo usado pa- 
ra determina 9 So da velocidade foi o 
de considerar cada grupo de clnco 
letras (op 9 So 1 do menu principal) co- 
mo uma palavra, dividindo-se o nume- 
ro de grupos pelo tempo de transmis- 
sio - um tanto rigoroso, reconhe 90 , 
mas para mim 6 o que mais se^aproxi- 
ma da realidade. 

. Unhas 450480 - sele^o randomi- 
ca dos cddigos ASCII permitidos, con- 
forme a op 9 ao desejada : s6 algarismos 
(de 48 a 57), s 6 letras (de 65 a 90) 
ou letras + algansmos + pontua^o 
(de 44 a 90, exceto os de 58 a 62 e 
64). 

. Unhas 500-550 — separa 93 o dos ca- 
racteres 1 e 0 da string AS escolhida 
e encaminhamento a sub -rotina de 
transmissio de um cariter telegrifico 
da linha 820. Teste se foi digitado 
S para interromper a transmissfo. 

. Unha 560 - teste se )& for am com- 
pletados 20 grupos. 

. Unhas 840-900 - sub-rotina para 
transmitir DE PY1DWM na abertura 
do programa. 

. Linhas 1040-1 100 - sub-rotina para 
as mensagens piscantes (ver programa 
Pisca-pisca, secSo Dicas, MS numero 
26). 



aos quais me associo agora. 

Este trabalho foi realizado tendo 
em vista ajudar tanto aqueles que 
pretendem praticar efetivamente o CW 
quanto aqueles que querem apenas ser 
aprovados nos (cada vez mais rigorosos) 
exames de promo^o as classes B e A 
(e depois jogar o manipulador no ponto 
mais profundo do oceano, HI!), al^m 
de servir tamWm para aumentar a 
proficiencia dos j i praticantes que ainda 
estao na faixa de dez palavras por 
minuto (ppm) ou, ainda, como meio 
auxiliar para aulas em grupo. Com 
pequenas modifica 9 des, poderd ser 
usado por um instrutor para transmitir 
qualquer texto desejado em vez de 
caracteres aleatdrios ou atl 
mesmo manipular diretamente o 
transmissor, via reld do motor cassete 
(o que nio aconselho), ou atravds da 
porta do cassete, via pequena interface, 
transformando o seu micro em um 
teclado. ainda que de relativamente 
baixa eficiencia. Estou inteiramente 
QRV para discutir o assunto. 



ENFRENTANDO A 
BARREIRA DO SOM 



O programa foi escrito para os micros 
da linha TRS-80 Modelos I e III, com 
ou sem drive. Embora extenso, 6 
razoavelmente simples, bastante 
estruturado e com uso extensivo de 
sub-rotinas. A maior dificuldade na sua 
confec 9 ao foi devida d, no meu entender, 
maior limita 9 So da linha TRS-80, que 
6 a ausencia de comandos especfficos 
para a gera 9 do de som. Como meus 
conhecimentos de linguagem de mdquina 
ainda deixam a desejar, optei por 
vasculhar a bibliografia especializada 
disponivel em busca de uma rotina de 
som apropriada, ao invds de ten tar 
reinventar a roda. 

Ap 6 s muitas tentativas e outras 
tantas frustra 9 oes, a solu 95 o veio 
atravds de Leo Christopherson 
(considerado, nos EUA, 0 Walt Disney 



da animacSo no TRS-80), em seu 
artigo Celestial Music ( Creative 
Computing, mar9o/82), do qual a 
rotina de som das linhas 180-250 foi 
integralmente copiada, com o 



devido conhecimento de Leo, conforme 
atesta correspondence em meu poder. 

Nio estranhe a instru 9 io LPRINT da 
linha 820 - ela substitui uma instru 9 io 
USR, uma vez que o endere 90 da rotina >» 
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PROFESSOR PICAPAU 



de som, contida na string SS , foi 
POKEado nas posiijoes 16422/23, que 
cont^m o endere 90 do vetor LPRINT. 
Se voce disp5e de impressora, deixe-a 
desligada para utilizar o programa. 

Em alguns micros da Prologica, com 
amplificador de som instalado na 
fabrica, foi constatada a ocorrencia de 
estalidos durante a transmissao, devido, 
possivelmente, a uma reposta pobre 
do amplificador. Se este for o seu caso, 
a liga^ao de um amplificador externo 
resolvera o problema; para comprovar o 
perfeito funcionamento da rotina de 
som, grave uma fita e ou 9 a-a em seguida. 
0 programa esta fartamente 
documentado pela utilizasao de varias 
instru 9 oes REM e seu uso nao oferece a 
menor dificuldade, gra 9 as aos diversos 
menus explicativos. 0 operador pode 
solicitar a transmissao de 20 grupos de 
cinco caracteres escolhidos 
aleatoriamente (somente letras, somente 
algarismos ou letras + algarismos + 
pontuacao) em seis valores diferentes 
(5, 6, 7, 9, 1 1 e 14 ppm); apos a 
transmissao, os grupos aparecem na 
tela para conference pelo tempo que o 
operador desejar. 

Toda comunica 9 ao com a mdquina 6 
feita pelo sistema de acionamento de 
uma unica tecla, sem necessidade de 
<ENTER>e, para interromper a 
transmissao a qualquer momento, basta 
digital <S>. 0 trabalho de digita^do 
do programa foi bastante simplificado 
atraves da utiliza 9 ao de rotinas de 
conferencia da soma de valores 
numericos (checksum) introduzidos 
em instru^oes DATA, com emissao de 
mensagens de advertencia em caso 
de erro. 

Isso 6 tudo por enquanto. Os 
melhores votos de aprova^ao nos exames 
de promo^ao e espero encontra-los 
breve pelas subfaixas. HPE CUAGN 73 
ESGLFMPY1DWM. 



Roberto Quito de Sant'Anna — PY1DWM 6 
engenheiro de telecom unicagdes e professor 
de Informdtica da AM AN. Radioamador des- 
de 1965. 6 membro ativo de vdrias entidades 
radioamador Isticas nacionais e estrangeiras, 
destacando-se: LABRE. CWRJ, CWRL. CWP, 
DIG. CHCeAGCW-DL. 



20 '= PROFESSOR -PICAPAU 

40 ' = P YIDWd-ROBERTO QUITO DE SANTANNA 
50 ' = BOX 24039 - 20522 - R JANEIRO-RJ^ = 

70 DEFINt"a-Z:CLEAR 1000:DId C$<100),dl<8>,02(8),G*<47) 

SO CLS : FOR 1=1 TO 47:READ G$( I ) :NEXT :Z$="" :ZZi="DEPYlDWd" 
90 A1 $=" APERTE QUALQUER TECLA PARA CUNTINUAR" 

100 A2$="ERR0 DE ENTRADA - VERIFIGUE DECLARAC0ES DATA" 

110 A3*="* * * TRAN SMI T I N D 0 ***" 

120 FOR 1 = 1 TO S : READ (11 < I ) :READ (12(I):NEXT 

130 PRINT0 15, "P R0FESS0R PICAPAU" 

140 FOR 1 = 1 TO 62:READ 0 : T=T+V *. Z$=Z*+CHR$ ( U ) *. NEXT 

150 IF TO9056 CLS: A$=A2$+" 700-750" : G0SUB 1040 :CLS:END 

160 ' *****R0TINA DE S0d***** 

170 'ATENCA0: A 'STRING' ABAIX0 DE0E TER 70 P0SICUES 
ISO s$="///////// . . .preencha com 70 s i mbolos ... ////////" 
190 dd=UARPTR(S*> :Sl=PEEK(f1(1+l ) :S2=PEEK( (1(1 + 2) 

200 S0=S1 +256 *S2 : POKE 16422 , SI : POKE 16423, S2 
210 A$=" 12" : dd=UARPTR( At):Al=PEEK(dd+l) 

220 A2=PEEK( (1(1+2) : A0=A1+256*A2:T=0 

230 FOR 1=0 TO 69IREAD V:T=f+0:P0KE S0+I,V:NEXT 

240 IF T05917 CLS:A$=A2$+" 760-S00" : G0SUB 1040 :CLS:END 

250 POKE A0+l,100 

260 '*****R0TINA DE ABERTURA 

270 FOR 1=1 TO 2: PRINTS 64,STRING$(63," ");:PRINT@ 64,""; 
2S0 FOR (1=1 TO 8: GOSUB 1250 I Zl$=dID* ( ZZ$ , (1 , 1 ) : Z=ASC ( Z 1 % ) 
290 G0SUB 840 : NEXT (1 

300 FOR 11=1 TO 50: NEXT Il:NEXT l:P0KE 16916,2 
310 ' s****ENTRADA DA ROTINA DE TRANSfllSSAO 
320 for 1=1 to ioo:c*<I)="":next:q=o:c=o 
330 G0SUB 920 :IF NR=4 GOTO 440 

340 CLS:G0SU8 1120 :CLS:PRINTQ 525, A3* T1 . r ,, ^ 

350 PRINTS 780, "PARA INTERROdPER A TRANSdISSAO TLCL.E <S, : 

360 ON DEL GOTO 370 ,380 ,390 ,400 ,410 ,420 

370 ICAR=300: ID=100:DAH=9:DIT=3:G0T0 430 

380 I CAR =300: ID=50:DAH=9:DIT=3:G0T0 430 

390 ICAR=100: ID=50:DAH=9:DIT = 3:GU TO 430 

400 ICAR=100: ID=50:DAH=6:DIT=2:G0T0 430 

410 ICAR=100:ID=10:DAH=3:DIT=l:G0T0 430 

420 ICAR=1 : ID=1 :DAH=3:DIT=1 

430 ON NR GOTO 450 ,460 ,470. 

440 POKE 16916, 0:CLS:END 

450 A=RND(25)+65:G0T0 490 :'*****S0' LETRAS 

460 A=RN0(9) +48:G0T0 490 :'*****S0’ ALGARISdOS 

470 A=RND(46)+44: ' *****LETRAS , ALGARISdOS E PONTUACAO 
480 IF A=64 OR <A>57 AND A<63) GOTO 470 
490 Q=Q+l:C$(Q)=CHR$(A) :A$=G$(A-43) 

500 FOR 1=1 TO ICAR:NEXT : ' INTO ENTRE CARACTERES 
510 T=LEN< A$ ) :F0R 1=1 TO T :D$=dID* ( At , I , 1 ) 

520 IF D*="l" THEN L=DAH:G0T0 540 
530 IF D$="0" THEN L=DIT 

540 GOSUB 820 :F0R 11=1 TO ID :NEXT : ' INTO DIDAH 

550 NEXT:lf TNKFY$="S" GOTO 610 

560 IF Q=t 00 GOTO 610 

570 C=C+l:IF COS GOTO 590 
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580 C=0:F0R T=1 TO 500 : NEXT :' ***s*INTU ENTRE GRUPOS 

590 ON NR GOTO 450 ,460 ,470 

600 ' ***** IMPRESS AO DOS GRUPOS 

610 CLS:PRINT:PRINT:FOR 1 = 1 TO 96 STEP 5 

620 FOR II = I TO 1+4 : PRI NT Ci(II);" ",*:NEXT 

630 PRINT " ", :NEXT:A$=A1$:G0SUB 1040 :CLS:G0T0 320 

640 DATA 110011,10001,010101.10010,11111,01111 

650 DATA 00111 .00011 ,00001 ,00000,10000,11000,11100 

660 DATA 11110, 2, 2, 2, 2, 2,001100, 2, 01, 1000, 1010 

670 DATA 100,0,0010,110,0000,00,0111.101,0100,11,10.111 

680 DATA 0110, 1101, 010, 000, 1,001, 0001, Oil, 10Qi, 1011. 1100 

690 DATA 1,5,6,12,13,18,19,28,29,40,41,47,48,55,56,62 

700 DATA 128,176,144,144,144,128,128.128.144.128,128 

710 DATA 128,144.176,144,176,144,144,128,128,128,176 

720 DATA 144,144,176,144,176,144,128.128,128,144.176 

730 DATA 144,176,144,176,144,176,144,128.128,128,176 

740 DATA 144,144,144.128,128,128,144,176,144.176,144 

750 DATA 128,128,128,176,144,176,144 

760 DATA 33,1,1,243,62,1.8,62,35,61,190,32,2.251,201 

770 DATA 126,35,86,94,29,14.10,6,225,21.32,14,87,62 

780 DATA 120,190,40,6,8,238.3,211,255,8,122,86.29,32,15 

790 DATA 95,62,120,190,40,6,8,238,3,211,255,8,123 

800 DATA 94,29,16,219,13,32,214.61,32,209,35,24,193 

810 '*****SUBROTINA PARA Ud CARACTER TELEGRAFICO 

820 POKE A0,L:P0KE S0+1,A1:P0KE SO+2 . A2 : LPR INT : RETURN 

830 SUBROT INA PARA TRANSdl FIR INDICATIVO 

840 C$=G$(Z-43) :C=LEN(C$) :F0R 11=1 TO C 

850 Cl$=dID$(C$,Il,l):IF Cl$="l" THEN L=3:G0T0 870 

860 IF C1$="0" THEN L=1 

870 GOSUB 820 : NEXT 

880 IF (102 GOTO 900 

890 FOR 11=1 TO 200: NEXT 

900 RETURN 

910 '#****SUBROTINA PARA 0 dENU PRINCIPAL 

920 CLS:PRINT:PRINT TAB ( 15 ) ; "Este programa transmite "; 

"a leator i amente" 

930 PRINT TAB(5);"20 grupos de 5 caracteres telegra"; 

"f i cos , mostran-" 

940 PRINT TAB ( 5 ); "do-os na tela ao final da transmissao," 
950 PRINT TAB(15) ,'"As opcoes disponivpis sao:" 

960 PRINT:PRINT TAB < 10) J "<1> Somente letras" 

970 PRINT:PRINT TAB(10)J"<2> Somente algar i smos" :PRINT 
980 PRINT TAB(10);"<3> Letras, algarismos e pontuacao" 

990 PRINT : PRINT TAB (10) f "<4> Fim de programa" 

1000 PRINT TAB ( 30 ) ; "SUA OPCAO E ' ====>" ; 

1010 GOSUB 1230 :NR=UAL(0P$> : IF NR<1 OR NR>4 GOTO 1010 
1020 PRINT NR ; : RANDOd : FOR 1=1 TO 500 : NEXT : RETURN 
1030 '*****SUBROTINA PARA dENSAGLd PISCANTE 
1040 N=LEN(A$) :INI=16320+(64-N)/2:Nl=N-l 
1050 FOR 1=0 TO Nl/2: POKE INI+N1-I, ASC( dl D$ ( At , N-I , 1 ) > 
1060 POKE INI+I ,ASC(dID$< A$, 1+1 , 1 ) ) :NEXT 
1070 FOR 1 = 1 TO 300:NEXT:IF INKEYtO" " RETURN 
1080 FOR 1=0 TO N1/2:PQKE INI+N1-I,32 
1090 POKE INI + I ,32:NF.XT:F0R 1 = 1 TO 100:NEXT 
1100 IF INKEY$="" GOTO 1050 ELSE RETURN 
1110 '*****SUBROTINA PARA 0 dENU SECUNDARIO 
1120 PRINT:PRINT T AB ( 10 ) ; "Estao disponiveis as seguin"; 
"tes veloc i dades: " 

1130 PRINT TAB(18);"<1> 5 palavras /minuto” 



D 




TECNOLOGIA 
EFICEENCIA 
SERIEDADE e 

a servigo de sua.^ 
empresa ' \ 

XySs***. ^ ^ 

'^'""FILIADA A ASSESPRO." 



A# 



1130 PRINT TAB(18)»"<1> 5 palavras /minuto" 

1140 PRINT : PRINT TAB ( 18) J "<2> 6 palavras / minuto" 

1150 PRINT :PRINT TAB ( IS ) i "<3> 7 palavras / minuto" 

1160 PRINT :PRINT TAB(18);"<4> 9 palavras / minuto" 
1170 PR INT: PR I NT TABUS) J"<5> 11 palavras / minuto" 

1180 PRINUPRINT TAB<18)J m < 6> 14 palavras / minuto" 

1190 PRINT TAB (40); "SUA OPCAO E'====>"; 

1200 GOSUB 1230 : UEL=UAL ( 0P$ ) : IF VELC1 UR UEL>6 COfU 
1210 PRINT VEL; :F0R 1=1 TO 500: NEXT: RETURN 
1220 '^^^^^SUBROTINA PARA ENTRADA VIA INKEY $ 

1230 0P$=INKEY$: IF 0P$="" GOTO 1230 ELSE RETURN 
1240 '***s*SUBROTINA AUXILIAR PARA ABERTURA 
1250 FOR dd=dl(d) TO d2(d):PRINT dID$(Z$,dd.l) ; :NEXT 
1260 RETURN 
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Se voce tern pequenas rotinas e programas 
utilitdrios realmente uteis tomando poeira em 
seus disquetes ou fitas cassetes, antecipe-se 
aos piratas e trate de divulgd-los. Envie-os 
para_ a REDAQAO DA MICRO SISTEMAS — 
SEC AO DICAS: Rua Visconde Silva, n° 25, 
Botafogo, RIO DE JANEIRO — RJ, CEP22281. 

Nao se esqueqa de dizer para qual equi- 
pamentos foram desenvolvidos. Desta forma, 
sua descoberta poderd ser util para muitos e 
muitos, em vez de desmagnetizar-se com o 
tempo em suas fitas e disquetes. . . 



Linha TRS 80 



Linha Sinclair 



Inver sao de video 

Inverta o video do seu micro com este pequeno progra- 
ma. mas aten 9 ao porque essa dica nao inverte textos , ]£ que 
os equipamentos da linha TRS-80 nao possuem caracteres 
inversos. 

Esta rotina em Assembler foi construida com JUMP rela- 
tives c pode ser alocada em qualquer lugar da memdriaR AM. 

10 FOR N% = 28672 TO 28701: READD :POKEN%,D: 
NEXT 

20 DATA 33,0 ,60,6,16,14,64, 126,203,127, 32,4 ,62, 191, 24 ,5 
30 DATA 47, 203,255,203,183,119,35,13,32,237,5,32,232,201 

Para acionar esta dica em BASIC Disco, digite: 

40 DESFUSR0 -28672 
50 A -USR0 (0) 

60 GOTO 60 

Para roda-la em BASIC cassete, use: 

40 POKE 16526,0: POKE 16527,112 
50 A - USR(0) 

60 GOTO 60 

E para testar, fa 9 a: 

50 FOR N% -15360 TO 16383: POKE N%, RND (95) + 32: 
NEXT 

60 FOR N- 001 TO 6.28 STEP .02 
70 SET (63+44* COS (N), 23+ 22* SIN (N» 

80 NEXT : A - USR(0) 

90 GOTO 90 



Agilizando INPUT 

Essa rotina agiliza os INPUT de um programa, quando 
eles forem em grande numero e em seqiiencia. Todos os da- 
dos sao colocados num unico INPUT, separados por virgu- 
las, e logo em seguida distribuidos em varidveis indexadas. 

Para operar a rotina, basta entrar com o numero de da- 
dos que se deseja introduzir e depois digita-los scguidamen- 
te. Por exemplo, para entrar com uma seqiiencia de 1 a 7, 
basta digitar 7 e depois “1 , 2, 3, 4, 5, 6, 7”. 



1000 INPUT K 
1010 DIM B(K) 

1020 LETD -1 
1030 LET F -0 
1040 INPUT AS 
1050 LET AS AS +“.0” 
1060 FOR N=1 TO LEN AS 
1070 IF AS (N) THEN 
GOSUB 2000 
1080 NEXT N 



2000 LET F = F+l 

2010 LET B(F) = VAL AS (D TO N - 1) 
2020 LET D -N+l 
2030 RETURN 



Eduardo Ribeiro Costa-RJ 



Sdrgio MArcio Furtado Valeriano-RJ 




PRINT a 

Para fazer um PRINT @ nos equipamentos da linha Sinclair, substitua: 
10 PRINT A^i;... 
por: 

10 PRINT INT (N/32), N-32* INT (N/32);.... 

onde 0 6 menor ou igual a N e N 6 menor ou igual a 704. 



Edson Cury-SP 



Linha TRS-80 



Calculo de fatoriais 

Calcule o fatorial de qualquer numero atd 33, com 
esse pequeno programa: 



to cls 

20 CLEAR250 
30 1*320:10=512 
H0 F0RX=6MTU127 
50 SFT<X, 18) :Ser< 127-X, 18) 

60 NEXT 

70 PRINTCHR* (23) 

BO PR INI (*M66 > 'T A T D R I A L"; 

90 F0RX«64TQ127 

100 5ET( X » 2H ) :SFT( 127-X . 2M ) 

110 NEXT 

120 FORI I=1T050: NEXT 

130 PRINTS!, STRINi3*<6H,"M"); 

1H0 PR I NT SID > STRING* < 6*4 » "W" ) ; 

150 FOR 11 = 1 T035: NFX T 
160 FS=FS+1 

170 IFFS= 2THEN190ELSEG0T0U0 
100 NEXT 
190 CLS 
200 FM = 1 

210 INPUT'TATOR IAL DC 0UAL NUKER0" ; PW 

220 IFPH>33THENPRINT"NUMER0 MUIT0 GRANOE ! 

TENTE 0E N0U0" : FOR 

H=1T 0800: NEXT : GOTO 190 

230 IFPMOINT < PM ) THENCLS:GOT0210 

240 rORI»lTOPII 

250 FH=I*F# 

260 NEXT 

270 PRINT-0 FATORIAL DE "Ptt"E' IGUAL A:"F* 
200 INPUr-OUTRO NUMERO <S/N)";A* 

290 IFA*<>"S"T HFNENDEL5E190 



Luiz Gonzaga Alvarenga-GO 



Linha Sinclair 



Cons ert undo linhas 

Quando for necessario consertar muitas linhas de um 
programa, em vez de usar varios SHIFT 7 e SHIFT 6, 
utilize esta sub-rotina: 

9995 INPUT L 

9996 POKE 16394JL-256* INT(L/256) 

9997 POKE 16395JNT (L/256) 

9999 RAND USR 1476 

Execute GOTO 9995 e digite o numero da linha que 
deve ser editada. A chamada USR 1476 corresponde ao 
comando EDIT (SHIFT 1). 

Se as linhas a serem editadas estiverem em seqiiencia 
(de 5 em 5, de 10 em 10 etc.), voce pode acrescentar: 

9998 LET L= L+ (intervalo entre as linhas) 

Nesse caso, voce deve utilizar GOTO 9995 apenas na 
primeira vez, e para editar basta executar GOTO 9996, 
pois o proprio computador calculara o numero da linha 
a ser editada. 



Linha Apple 



Multicurvas 

Para desenhar incriveis curvas em alta resolu^ao, 
escolha os seus STEP e maos a obra. Para sair do dese- 
nho, e so digitar TEXT e RTN, e a seguir RUN e 
RTN. Agora, rode esta dica e experimente com os 
STEP 1,2, 3... ate 20. 

10 REM MULTICURVA 
20 HOME 

30 PRINT "INTRODUZIR O STEP" 
40 INPUT S 
50 HOME 
6 0 HGR 

70 H COLOR= 3 

80 FOR P=0 TO 800 STEP S 
90 LET X= . 1 *P*COS( P) 

100 LET Y= . 1 *P*SIN ( P ) 

110 IF X>240 OR Y > 1 60 THEN 
GOTO 130 

120 HP LOT X+ 1 20 , Y+80 
130 NEXT P 
140 STOP 



Armando Oscar Cavanha-RJ 



Linha TRS-80(III) 



Leitura facil do diretorio 

Uma das maiores dificuldades do sistema TRS DOS e 
a leitura de seu diretdrio. Mas com um simples programa 
em Assembler e dois PATCH podemos criar um diretd- 
rio simplificado, semelhante ao comando CMD”D: n” 
do BASIC: 



0100 ; 

01 10 ; 

0120 

0130 DDIR 
0140 JDOS 
0150 INIC 



DIRA/CMD 

ORG ( 

DEFL - 

DEFL < 

LD ; 

LD ] 

LD I 

CALL [ 

JP V 

END ] 



0FFF0H 

4419H 

402DH 

A, ( 4225H + 6H 

IX, 427 1 H 

( IX) , A 

DDIR 

JDOS 

INIC 



Depois, digite em TRS DOS READY : 

PATCH • 1 0 ( ADD* 4E2E , PIND=*CD3E4B , CHG=CD8A50 ) < ENTER » 
PATCH *101 ADD=508A , FIND* 4 4 69 7 36B,CHG=4FC33E4B) < ENTER > 

Para usar, digite em TRS DOS READY: DIRA : n 
< ENTER >, onde n e igual ao numero do drive. 



Tito M. B. Homem de Mello-SP 



Gera Ido Pinheiro Xavier -MG 












EQUIPAMENTOS 

• Vendo Vic-20, seminovo, 
todos os acessdrios. Tratar com 
Sergio pelo tel.: (Oil) 211-5569, 
SSo Paulo. 

• Vendo calculadora Tl 59. Pre- 
po Cr$ 140.000,00. Tratar com 
Adrian pelo tel. (011) 240-9611, 
ramal 21, SSo Paulo — Capital. 

• Vendo programa Microdata 
(Banco de Dados), da Microarte, 
para microcomputador Microen- 
genho. Tratar com Leonardo Sor- 
tino, tel.: (011) 2824264 ou 881- 
0770, SSo Paulo. 

• Compro microcomputador da 
linha Sinclair ou o CP-300. Da- 
niel Salvador Filho. Av. Bias For- 
tes 1122, apto. 125, Centro - Be- 
lo Horizonte — MG. CEP 30.000. 

• Vendo ou troco Micro-Enge- 
nho, 64 Kbytes, acionador de dis- 
quete, modulador de radio e acio- 
nador de jogos. Troco por vfdeo- 
cassete. Tratar com SSrgio pelos 
tels. : (011) 262-5916 ou (011) 
832-3227, SSo Paulo. 



SOFTWARE 



• Vendo programas para Ibgica 
Sinclair como Polvos, TK Man, 
Kong, Labirinto tridimensional, 
Alerta Vermelho e Taipan. Tratar 
com Gilberto pelo tel. (011) 280- 
41 83, SSo Paulo. 

• Vendo ou troco programas pa- 
ra o TK 82-C e compati'veis. Pos- 
suo vSrios importados, entre apli- 
cativos e jogos. A maioria 6 em 
linguagem de mSquina. Tratar 
com Isabel, Rua Rodrigo Soares 
de Oliveira, n? 255, Bairro 
Anhangabau, Jundiaf, SSo Paulo, 
CEP 13200. 

• Compro ou troco programas 
para computador Atari ou Apple, 
em fita, cartucho ou disquete. 
Tratar com Josd pelo tel.: (011) 
227-0848, SSo Paulo. 




DIVERSOS 

• Vendo revistas americanas pa- 
ra microcomputadores, videoga- 
mes e v/deo. Informapdes com 
Marcelo pela Caixa Postal 12.795, 
SSo Paulo, CEP 04798. 

• Troco a minha Caloi 10 (ano 
81), por um gravador cassete Na- 
tional ou interface RS 232. Car- 
tas para Ricardo de Oliveira, Rua 
Ludgero Martins, n? 67, CEP 
37170, Boa Esperanpa, Minas Ge- 
rais. 

• Procuro estSgio. Formei-me re- 
centemente no curso de TScnico 
de ProgramapSo de Computadores 
(nfvel 29 grau) pelo Instituto 
de Tecnologia O.R.T. do Rio de 
Janeiro. Tenho conhecimentos 
dos computadores IBM/360 e 
4341, de VM/C.M.S. e D.O.S./ 
VSE; dos microcomputadores 
Unitron (AP II) e Proldgica (CP- 
500) e das linguagens Cobol e 
Basic. Luiz Chalola (17 anos). 
Rua Republica do Peru 335/ 
201, Copacabana. CEP 22021 - 
Rio de Janeiro, RJ. 

• Compro livros sobre os micro- 
processadores 6502 e 8088 e so- 
bre programapSo em linguagem de 
mSquina no APPLE II, de prefe- 
rence em portugufis. Tratar com 
Angelo Andrade Cirino, Rua Car- 
los Alves n9 69, apto. 203, Pam- 
pulha, tel.: 441-3762, Belo Hori- 
zonte, MG. 

CLUBES 

• Clube de usuSrios de micro- 
computador no qual voc£ troca 
idSias, programas e equipamentos. 
Informapdes pela Caixa Postal 
7459, CEP 01000, Sao Paulo. 



• Possuo uma Tl 99/4A e gosta- 

ria de entrar em contato com pos- 
suidores deste equipamento para 
troca de informapdes e experiSn- 
cias. Ricardo Augusto MartineSli 
Rua Castelo Branco, 680 — Praia 
da Costa — Vila Velha — ES, CEP 
29100. tel.: (027) 229-4498. 

• PETROCLUB TK/Sinclair: As- 
socie-se gratuitamente e receba 
periddicos com jogos, utilitdrios e 
dicas referentes aos micros com 
Idgica Sinclair. Estamos formando 
uma biblioteca de programas e 
contamos com a sua colaborapSo, 
enviando, se possfvel, um progra- 
ma qualquer, juntamente com os 
seus dados pessoais e um envelo- 
pe selado. Envie para: Rua do Im- 
perador, 206/1102, CEP. 25.600, 
Petrdpolis, Rio de Janeiro. 

• Gostaria de entrar em contato 
com jovens possuidores de CP-500 
ou similares, para troca de jogos e 
informapdes. Possuo um CP-500 
com um drive. Contato com D6- 
cio Yokota, Rua Moncorvo Filho, 
77, ButantS, SSo Paulo, SP. CEP 
05507. 



CURSOS 



• A Iguapu Center Computado- 
res estS oferecendo o curso de 
Programapao de Computadores, 
incluindo: Introdupao, BASIC 1, 
BASIC Avanpado e Aplicapoes 
Comerciais. O curso tern durapao 
de seis meses e os horSrios sSo di- 
versos: manha, tarde e noite, in- 
clusive aos sSbados. Informapdes 
na Rua Marechal Floriano Peixo- 
to, nP 1.480, sala 148, Nova Igua- 
pu, tel.: (021) 767-5709. Rio de 
Janeiro, RJ. 



• A Divisao de Ensino da ADP 
Systems estS promovendo cursos 
para programadores e analistas. O 
primeiro, de uma sSrie voltada a 
produtos usuais. ser3 o CICs, des- 
tinado a aumentar a produtivida- 
de. Na parte de especial izapSo 
profissional, serS desenvolvido o 
curso Auditoria de Sistemas. Maio- 
res informapdes pelo tel.: (011) 
285-3283, Sao Paulo, SP. 

• Comunicapao com o Sistema, 
VM/CMS: Conceitos e Funpoes, 
Microcomputadores e a Lingua- 
gem BASIC, Linguagem Assem- 
bler para o Sistema Operacional 
CP/M-80, Sistema Operacional 
CP/M e Linguagem LOGO para 
Crianpas, sSo os cursos que o Ins- 
tituto de Tecnologia ORT oferece 
no mes de maio. Inscripoes e in- 
formapdes na Rua Dona Mariana, 
213, tel.: (021)226-3192, Rio de 
Janeiro, RJ. 

• A Engedataest^ oferecendo Cur- 
so de Programapao em Microcom- 
putadores p/engenheiros e estu- 
dantes da area, com estSgio em 
seu proprio CPD. Inform. Rua 
Sao Paulo, 1631/906 — Lourdes 
- Tel.: (031) 337-5636 - Belo 
Horizonte — MG. 

• A Servimec estarS promoven- 
do nos dias 02, 03 e 04 de maio, 
em SSo Paulo, o seminSrio A Mi- 
croinformatica — Uma Anaiise 
TScnica. Maiores informapdes a 
Rua Correa dos Santos, 34, tel.: 
(011) 222-151 1, Sao Paulo, SP. 

• A Compucenter esta oferecen- 
do, de 21 a 23 de maio, o seminS- 
rio ComparapSo e Selepao de Mi- 
crocomputadores. Maiores infor- 
mapdes sobre local e prepo pelo 
tel.: (011) 255-5988, Sao Paulo, 
SP. 

• Controle de Processos, Progra- 
mapao BASIC, Manutenpfo do 
micro DGT-101 e Projeto de In- 
terfaces para Microcomputadores 
sSo os cursos oferecidos no mas 
de maio pelo Centro Brasileiro de 
Informatica, a Av. Passos, 115, 
sal as 202, 204 e 215, Rio de Ja- 
neiro. RJ. 




6 ° 



QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
voce 6 quern decide o que, quando e como anunciar nos 
Classificados MS. Quanto vocS terS que pagar? Isso tambSm 6 
decisSo sua. Preste atenpao: 

• cada linha de texto (30 toques, incluindo os espapos em branco) 
custa Cr$ 2.000,00: 

• linhas incompletas serao cobradas como inteiras; 



• o prdprio anunciante deve checar o valor de seu anuncio com o 
numero de linhas que ele contiver; 

• o anftncio deve vir acompanhado de um cheque nominal d ATI 
Editora Ltda; 

Os textos devem ser datilografados ou escritos em letra de forma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 



Vendo DGT-100 com 3 2 K RAM, v { 
deo e gravador cassete* Tratar 
com Marcos, tel: (021)267-0332. SlgtlGT^aS 

Maiores informapdes pelos tels.: (021) 266-0339 — RJ ou (011) 853-7758 — SP. 
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• Contabilidade Oral 

• Editor de Texto 

• Sistema da Arquivot 

• Mata Oireta 

• Sistema Ealatistico 

• Controle Bancano 

• Administrated Imobilliria 

• Sistema Biblioteca no 

• EacntOrio da Advocacia 

• UtllltAnos am Geral 



m.S. Servicos 



Transformaqac PAL-M 
Assistencia Tecnica 
Expansoes 



Assistencia Tecnica 
Autcrizada 
Vendas • Leasing 
• Expansoes 



r Manutenpao 
na sua empresa 

Av Marechal Camara. 271/101 
V.R 10 de Janeiro Tel.: 262-3289^ 



PRH 

C0NSULT0RES 



Assessoria em Processamento de 
Dados 

Desenvolvimento de Programas 

PROGRAMAS PRONTOS 

(TRS-80-III — diskette) 

• Emissao de Carnes 

• Controle de Convenios 

• Processamento de Cadastros 

• Historico Medico 

• Mala Direta 

• Lista de Prepos com Reajuste 
Automatico 

• Cadastro de Artigos de Re- 
vistas el ou Livros 

• Cadastro de Clientes 



PRH Consultores 
Rua Mexico, 70— Grupo 810/811 
Centro-RJ Tel.: (021)220-3038 



Alfa Bit 
CLUBE DE COMPUTAQAO 



Associe-se ao ABCc e ganfte Anuncio GRA- 
TIS.- um exemplar de ALFABIT e DESCON- 
TOS de 10% na compra de LIVROS. REVIS- 
TAS. CURSOS e PROGRAMAS. alfim de 

— Servigos de "Reprinters" e Consultas 

— AssociagJo a Clubes Europeus 

— Parltcipagao em Cursos. Congressos e 
Concursos 

— Novos langamentos a PRECOS REDUZI- 
DOS (Breve: IMPRESSORA OE AGU- 
LHAS P/MINI-MICROS OE LOGICA SIN- 
CLAIR - Lanpamento "Digital EletrO- 
nica") 

ANUIDADE: CrS 1.000 (hum mil cruzeiros) 
somente ao receber seu Cartio-Descontos e 
um exemplar de "Alfabit" 

Envie nome. enderepo, protissJo e texlo do 
seu anuncio (caso queira publicapdo Ime- 
diata). 



N 0 V I D E I A (*) 

Comunicapao e Informatica Ltda. 
CAIXA POSTAL 9978 
CEP 01051 - Sao Paulo. SP 



(*)Comercializamos seu proje- 
.to-Soft ou Hard. Escreva-nos , 



ILflSIIl 

INFORMATICA LTDA 



PROGRAMAS PARA APPLE 
E 

COMPAT1VEIS 



DESENVOLVIMENTO l>t ESPEC1F1CGS 



• Atendlmento pelo reemboteo poetat 
■ Vendee d* computador**. 
aceeeonos * euprlmentoe 



At. trank I m Rnotctrll. ZVaOJ — < mlrto 
Trtt.: 1021) 22M52* - 220-IU27 
CEP.! 20.021 — Kio dr Janrtro — RJ. 



Umhtp 

COMPUTACAO 


















Kua Miguel Ixunos n.‘ 41* 
sala 606 - Copacabana 
Tel.: 227-8803 
Rio de Janeiro - RJ. 



M I K R O S” 
AGORA NO 
LEBLON! 

Av. Ateulfo de Paiva 566 - Loja 211 
Rio de Janeiro — Tel.: 239-2798 



APROVEITE OS PRECOS 
TNCRIVEIS” DA "M1KROS" 
DO LEBLON, EM SUA EPOCA 
DE INAUGURACAO. 



MICROCOMPUTADORES 



NAJA — JR-SYSDATA — UNITRON 
COLOR 64 — APPLE-TRONIC 
CP-200 — CP- 300 — CP-500 
TK-83 — TK-85 — RINGO 



SISTEMAS 



SOFTWARE (NAC.E IMPORT) 
IMPRESSORAS E PERI FE RICOS 
CURSO DE BASIC 



PROFISSIONAIS 
ALTAMENTE ESPECIAUZADOS 
PARA ATENDE-LO 



ROBOTIC 

— MICROCOMPUTADORES 
DE TODAS 

AS MARCAS 

— SUPRIMENTOS 

— PEQAS E PARTES PARA 
MICROCOMPUTADORES 

— JOGOS ELETRONICOS 



RUA BARATA RIBEIRO. 370 
— Loja 105 APART HOTEL — 
COPACABANA — RIO — RJ 
TEL: (021) 257-6396 



O lugar compativel 
com voce e seu 
micro. 

8 — Micros 
— Acessorios 
— Software 
— Livros 
— Revistas 



Rua Dias da Cruz, 215 
s/804 — Rio de Janeiro — RJ 
Tel.: 594-2699 



a BITS E BITES 

COMPUTADORES 



• VENDAS 

• ASS. TECNICA 
ESPECIALIZADA 

• PROGRAMAS 

• DISKETTES 

• FIT AS 

• SERVigOS 

• CURSOS DE BASK’ 

• FORM ULARIOS 



ICONSERTOS EM 24 HORASI 
(COM GARANTIA) PARA 
O CP-500 e DGT-100 



EM SAO CONRADO 
Estrada da GMvea, 642 
Lj. B Tel.: 322-1960 « 



C f MICROLOGICA 

p Engenharia de 
Sistemas Ltda. 
Consultoria de Hardware 
ASSISTENCIA TECNICA 
AUTORIZADA 
A MICROCOMPUTADORES 
Compativeis com APPLE, 
TRS80, IBM PC. ZX81. logos 
eletrOmcos e outros 

'Lanpamento do contrato de^ 
manutenpao com custo 
minimizado: 50% do valor 
normal acrescido do custo 
^de p^c— (quando houver).^ , 

Temos aphcativos e logos 
novtsstmos para 
APPLE II em Diskeites 

por Cr$ 15 000,00. 

AV PRESIDENTE VARGAS, 
542 1 912 - 263-9925 



VENDA DE 

MICROCOMPUTADORES 
TK 83, 85, & 2000 COLOR 
CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 

SUPRIMENTOS 

Disquete fitas. (or m continuo 

CONSULTORIA DE SISTEMAS 

Diagnostico e apoto a dectsao 
CURSOS E TREINAMENTO 
Introdupao aos microcomputadores 
Linguagem Basic 
Aphcapao dos micros 
na Engenharia 

Microcomputadores para crianpas 
INSCRIQOES ABERTAS 
Livros e revistas especializados 



Cep. 22.410 Ipanema Rio RJ 
Tel.: (021) 274-1042 
DESPACHAMOS PARA 
TO DO O BRASIL 



No Recife, visite 

T E L E V i D E 0 (’) 

O Lojao de Intormatica mats 
descomplicado do pais! 

Micros, perifericos. suprimen- 
tos, Sottware. Cursos. Livros e 
Revistas. Componentes Eietro- 
nicos. Pepas e Som. 



PREQ0S ESPECIAIS. 
FINANCIAMENTO PROPRIO 



Compre pessoaimente ou peio 
Reemboiso Postal 

TELEVIDEO LTDA. 

R. Marques do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife. PE 



( ) Sr. Industrial: distribuimos seu 
produto nas melhores condiqoes. 
Contato em Sao Paulo: Tel.: (011) 
220-7377 (Sr. ANDERSON — Mun I 
V. disom) J 
















QUO Din 0100 0000 1100 mi 
0010 

ntjf \ loooo 

mM ^ofl\ \ foooi 

o'A \# iooo 

no'V \ Vooio 

ion tW \ Xjno 



Curso de 



Assembler 



XV 



A 



.JL partir dcsta li^ao, voltamos a dcscrcvcr os grupos dc instru- 

i;ocs na scqiicncia dcfinida pcla Zilog. Neslc niimero vamos convcrsai 
sobrc o grupo de aritmitica de propdsito geral e controle da UCP. Va- 
mos, entao, conheccr cstas instruijoes. 

1 Ajustc Decimal do Acumulador 
Formato : DAA 

Operafdo: Efetua o ajustc decimal do contcudo do Acumulador. 

Cddigo objeto : 



Esta soma nao e decimal. A instrucao DAA ajusta o rcsultado para a 
representaQao decimal (BCD): 



00 10 
00 1 1 
0 100 



0 10 1 



1 100 
00 1 0 



( DAA ) 



0 0 1 0 0 1 1 1 



Descrifdo: A instrucao de ajustc decimal convene o contcudo do Acu- 
mulador cm dois digitos decimals, codiflcados cm dois* 
grupos de quatro bits. £ utilizado normalmentc apos a 
adi<;ao dc dois mimeros dccimais (BCD). 

Ciclos de mdquina (M): 1 
Slates (T) : 4 
Rags afetadas: 

S - setada sc o bit mais significative (MSB) do Acumula- 
dor apos a operacao e 1 . Senao, c rcssetada; 

Z - setada se o contcudo do Acumulador apos a operacao 
c' zero. Senao, e rcssetada; 

H - esta flag c usada na conversao e pode assumir diferen- 
tes estados; 

P/V - setada sc o conteiido do Acumulador. apos a opera- 
?ao, contiver uma paridade par. Senao, c rcssetada; 

N - nao afetada; 

C - esta flag c usada na conversao c pode assumir diferen- 
tes estados. 

Exemplo: Se realizarmos uma operacao de adi^ao entre 15 
(BCD) e 27 (BCD), obteremos o seguinte rcsultado; 



mas, quando realizamos esta operacao dc acordo com a aritmetica bina- 
ria padrao, obtemos o seguinte rcsultado: 

0001 . 0101 

♦ 

0010 . 0111 

0011 . 1100 (30 



c obtemos o resultado correto, que e 42. 

2 - Complementa Acumulador (complemento de 1) 
Formato : CPL 

Operafdo : Complementa o conteiido do Acumulador. 
Cddigo objeto : 



0 0 10 1111 



Descrifdo : O conteiido do Acumulador e invert ido (complemento de 1 ). 
Ciclos de mdquina (M) : 1 
States (T) : 4 
Flags afetadas : 

S - nao afetada; 

Z - nao afetada; 

H - setada; 

P/V - nao afetada; 

N - setada; 

C - nao afetada. 

Exemplo: Se o contcudo do Acumulador c 101 1 • 0100, 
apos a execucao da instrucao CPL, o conteiido do Acumu- 
lador serf 0100 • 1011. 

3 - Ncgacao do Acumulador (complemento de 2) 

Formato : N EG 

Operafdo: Efetua uma operacao de complemento de 2 sobre o conteii- 
do do Acumulador. 

Cddigo objeto : 



1110 110 1 

— 1 1 1 1 ! 1 1 

0 1 0 0 0 1 0 0 
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Descrifdo: O conteiido do Acumulador e negado (complemento de 2). 
Esta opera?ao subtrai de 0 (zero) o conteiido do Acumulador. 

Ciclos de mdquina (M) : 2 
States (T): 8 (4,4) 

Flags afetadas: 

S - setada se o resultado e negativo. Senao, e rcssetada; 

Z - setada se o resultado c zero. Senao, 6 rcssetada; 

H - setada se ocone urn emprestimo do bit 4. Senao, <5 
ressetada ; 

P/V - setada se o Acumulador tinha 80H antes da opera- 
cao. Senao, e ressetada; 

N - setada; 

C - setada se o contcudo do Acumulador era diferente de 
zero antes da operacao. Senao, e ressetada. 

Exemplo : Sc o conteiido do Acumulador 6 1 001 • 1000, 
apos a execucao da instrucao NEG, o conteiido do Acu- 
mulador scri 01 10 • 1000. 

4 - Complementa Flag Carry 
Formato: CCF 

Operafdo: Complementa a flag carry. 

Cddigo objeto: 



CCF 



3 F 



Descrifdo: A flag c no registrador F e invertida (complcmentada). 
Ciclos de mdquina (Ml : 1 
States (T) : 4 
Flags afetadas : 

S - nao afetada; 

Z - nao afetada; 

H - copia do contcudo da flag c antes da operacao; 
P/V - nao afetada; 

N - rcssetada; 

C - set3da sc o contcudo da flag c era 0 antes da 
operacao. Senao, 6 ressetada. 

5 - Seta Flag Carry 

Formato : SCF 

Operafdo : Seta a flag carry. 

Cddigo objeto: 



SCF 



37 



Descrifdo : A flag c no registrador F e' setada. 
Ciclos de mdquina (M):\ 

States (T) : 4 
Flags afetadas : 

5 - nao afetada ; 

Z - nao afetada; 

H - ressetada; 

P/V - nao afetada; 

N - ressetada; 

C - setada. 

6 - No Operation 

Formato: NOP 

Operafdo : Nao exccuta nenhuma acao. 
Cddigo objeto : 

NOP 



00 



Descrifdo: Esta instrucao c passiva; ela nao executa nenhuma acao no 
microprocessador. £ utilizada na substituicao dc instrucocs 
evitando que se alterem os enderecos. 

Ciclos de mdquina (M) : 1 
States (T) : 4 
Flags afetadas: nenhuma 
7 - HALT 

Formato : HALT >y 

Operafdo : Suspende a execucao de um programa. 







SOFTWARE Out VOCE WERECE 



CIBERNE t a mais avancada e sofisticada linha de sotfware para rmcrocomputadores. criada 
para livrar voce dos inconveniemes de produgdes amadorai ou de origem duvidosa Com 



CIBERNE vod 1 erf uma diversificada linha de programas novos. lanpados pen odicam erne 
em pacotes ecoodmicos. Com gravagSo profioional e em embalagem imnoUvel. CIBERNE 
oferece a voce garantia total em qualquer lugar do Brasil. 



PROGRAMAS EM FITA PARA TK-82. 83. 85. CP-200 E COMPATfVEIS 



JOGOS 



S#m qual qum ACT Homo no pnto vod oneontrs m coda tita 5 oxcitantn logos para MTU Urar a 
antratanimanto. Urn joy tuck ou nctado. 

BICHOS A CIA PATBULHA CAlACTICA COMBATE 

a NAVE MAE a NIGHT GUNNER 

• FUNGOS MUT ANTES a ALERTA VERMELHO 

a GALATICA a POLARIS 

• SOS VEGA III a DUELO 

• PERSEGUIDOR a SCRAMBLE 



AVBHTURA A HMTUUO 

■ PIRAMIOE INCA 

■ SABOTAGEM 

a O AVENTUREIR0 

■ MAZOGS 

a USS ENTERPRISE 



a CASCA. A COBRA 
a CRAZY KONG 
a CENTOPflA 

• F ROGGE R 

• SUCURI 



UTILITARIOS 



• SOG Uma nova a mao podcrota vanfo da ROT I 
a <au Mfuacional Sntama Operational Grifico 

• MERGE 

PARA BREVE 

• ESTRELANEGRA a ORCA I lOvcamenio domtfsttco) 

• CRISTAL MAGICO a ARQ I (Arquivoda Oadosl 

a GUERRILMACOSMICA a CASHFLOW 



• ASSEMBLER 
■ OESASSEMBLER 
a COMPILADOR BASIC 



a OMERCADOR 
a STARQUEST 
a ZARAKS 



EM TODO O BRASIL NAS MELHORES LOJAS DO RAMO. 



Informacoes, Distribuiqao e Vendas; 

JVA - MICROCOMPUTADORES LTDA 

Av. Grapa Aranha, 145 s/loja 01 Rio de Janeiro - RJ 
CEP 20.030 Tel.: (021 ) 262 6968 






LIVRARIA SISTEMA 



LOIB GALERIA METHOPOLE, LJ 8 l"S/LOJA 
VJA TELS 259 15011 2B7-6118 SP 

■ I ENTRADAS DA GALEHIA 

AV SAO LUIZ. 187 (Amigo 153) 

PRACA DOM JOSE GASPAH 106 SP 

SEMPRE NOVIDAOES 

01 POR DENTRO DO APLE uma abordagem do applsoli Tucci 16 500, 

02 MANUAL DE COBOL ESTRUTURADO McCracken 15 700! 

03 THE CREATIVE TRS«> Ma/ur 41 000. 

04 LEARNING LOGO ON THE APPLE II . 58 000 

05 PROGRAMMER S GUIDE TO CP/M L.bei 33 000. 

06 6502 ASSEMBLY LANGUAGE PROGRAMMING Fernandez 38 000. 

07 RPG II Pereira 18 500 

08 THE CREATIVE APPLE Pelc/arsk. <11000. 

09 - USING CP/M a tell teaching guide Fernandez 38 000. 

10 - ANALISE ESTRUTURADA DE SISTEMAS Gane 7.900 

11 APPLE BASIC DATA FILE PHOGRAMMIING F.nkel 38 000. 

12 - LEARNING TO PROGRAM IN C Plum 63 500, 

13 USING DBASE II Townsend 48.000. 

14 MANUAL DE BASIC para sistemas compativeis com o apple II • 

Peckham 8 700 

15 GOLDEN DELICIOUS GAMES FOR THE APPLE COMPUTER 

Franklin 33.000 

16 WRITING INTERACTIVE COMPILERS AND INTERPRETERS 

Brown 40 000 

17 8080/Z80 ASSEMBLY LANGUAGE M.iler 33 000, 

18 • COMPUTADORES BRASILEIROS' industria, tecnologia e depen - 

dencia Tigre 7 900. 

19 APPLE GRAPHIS & ARCADE GAME DESIGN Stanton . 51000 

20 INTRODUCTION TO 8080/8085 ASSEMBLY LANGUAGE PRO 

GRAMMING - Fernandez ... 33 000, 

21 SPREADSHEET SOFTWARE FROM VISICALC TO 12 3 Hender 

son 51.000. 

22 - IBM'S PERSONAL COMPUTER 2nd edition DeVoney 51 000, 

23 USING 1 2 3 LeBiond 46.000 

24 - CP/M SOFTWARE FINDER D.gital Research . 46 000. 

25 REAL MANAGERS USE PERSONAL COMPUTER' Hetser 46.000, 

26 IBM PC EXPANSION & SOFTWARE GUIDE Friedman 61000 



ATENDEMOS POR EEMBOLSO 
CORREIO E VARIG (fora da Capital) 
PEDIDOSPARA Cx Postal 9280 
CEP 0 1051 SAO PAULO SP 
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CURSO ASSEMBLER - XV 



Cddigo objeto : 



Exist cm oito possibilidades de uma instrucao dc restart: 



HALT 



— i 1 1 1 1 1 1 — 

0 1110 110 

I'll I I I — 
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Descrifdo : A instrucao HALT suspends a opera^ao do microproccssador 
ate que unia interrupcao ou um RESET sejant reccbidos. 
Durante o estado dc HALT, o microprocessador executa 
instruQoes NOP para manter ativa a logiea dc refresh das 
memorias. 

Ciclos de mdquina (M) : 1 
States (T) : 4 
Flags afetadas : nenhuma 
8 - Dcsabilita Interrupcao 
Formato : Dl 

Operafdo: Dcsabilita interrupcao. 

Cddigo objeto: 



D I 



l i i i . I r— 

11110 0 11 

__i i I i 1 1 1 — 
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Descrifdo: Esta instrucao desabilita qualquer interrupcao mascarada, 
ressetando os flip-flops de habilitacao de interrupcao (IFF I 
e IFF2). 

Ciclos de mdquina (M) : 1 
States (T ) : 4 

Flags afetadas: nenhuma. 

9 - Habilita Interrupcao 
Formato : El 

Operafdo: Habilita a interrupcao mascarada. 

Cddigo objeto: 



E I 



— i r— i 1 1 1 1 — 

111110 11 
i_i 1 1 1 1 1 — 
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RSI 
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OPl RAQ ao 


r NDI Rf CO 
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H 
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8 


H 


cr 


H 
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H 
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H 


07 


H 
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H 


RSI 
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H 


or 


H 
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RSI 
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H 
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H 


?0 


H 


RSI 
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H 


EF 


H 


28 


H 


RSI 


)0 


H 


r 7 


H 
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H 


RSI 


J 8 


H 


r r 


H 


J 8 
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Ciclos de mdquina (M) : 2 
States (77:8 (4.4) 

Flags afetadas: nenhuma. 

1 1 - Seta Interrupcao no Modo I 
Formato: IM I 

Operafdo : Seta o modo de interrupcao para operar no modo I . 
Cddigo objeto: 



I M 1 



1 


1 


'III — 

10 11 


0 


— 

1 




0 


1 


0 10 1 

1111 


1 


0 

L_ 
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Esta instrucao seta o modo dc interrupcao para o modo 1 . Neste modo, 
o microproccssador responde a uma interrupcao com um restart para a 
posicao de memoria 38H. 

Ciclos de mdquina (M) : 2 
States (77:8 (4.4) 

Flags afetadas: nenhuma. 

12 - Seta Interrupcao no Modo 2 
Formato :IM 2 

Operaf do : Seta o modo de interrupcao para operar no modo 2. 

Cddigo objeto : 



Descrifdo: Esta instrucao habilita qualquer instrucao mascarada, setan- 
do os flip-flops dc habitacao dc interrupcao (IFFI c IFF2). 
Note que as instrucocs El e Dl desabilitam uma interrupcao 
mascarada durante a sua execucao. 

Ciclos de mdquina (Mj : 1 
States (T) : 4 

Flags afetadas : nenhuma. 

Exemplos: Quando o microprocessador e desabilitado a 
aceitar interrupcoes mascaradas pela instrucao Df, a UCP 
nao responde a um sinal de Interrupt Request (INT). So- 
mente apos ser execulada uma instrucao El. a UCP ira no- 
vamente responder a um sinal INT. 

10 - Seta Interrupcao no Modo 0 
Formato : IM 0 

Operar; do : Seta o modo de interrupcao para operar no modo 0. 

Cddigo objeto: 



I M 2 
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1 1 


0 


1 


1 


r— 

0 


1 


0 


1 0 


1 
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1 


1 
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1 
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Descrifdo: Esta instrucao seta o modo dc interrupcao para o modo 2. 

Neste modo, e possi'vel uma chamada mdircta para uma po- 
sicao de memoria. Com estc modo.o microprocessador for- 
ma um numcro de 16 bits- os oito bitsdealta ordem (MSB) 
sao obtidos pclo contcudo do registrador de interrupcao I c 
os oito bits dc baixa ordem (LSB) sao colocados no bus 
de dados pelo dispositivo que provocou a interrupcao. 



I M 0 



1 5 



8 7 
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1 

1 1 
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0 


1 


1 
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registrador I 



dispositivo 



Ciclos de mdquina (M) : 2 
States (T):S (4,4) 

Flags afetadas : nenhuma. 



Descrifdo: Esta instrucao seta o modo dc interrupcao para o modo 0. 

Neste modo, o dispositivo que provoca a interrupcao podc 
inscrir alguma instrucao no bus de dados que e cxccutado 
pelo microprocessador. O primeiro byte enviado pelo dispo- 
sitivo e lido pela UCP durante o ciclo de accitacao da inter- 
rupcao e os bytes subseqiientes sao lidos numa scqiiencia 
normal de leitura. A instrucao normalmente enviada pelo 
dispositivo e um RST (restart), que provoca a execucao da 
rotina existente no endereco especificado como operando 
da instrucao RST. 



Amaury Correa de Almeida Moraes Junior e formado pelo curso de 
And Use de Sistemas da FASP. tendo feito diversos cursos de aperfeicoa- 
mento nas dreas de Eletronica Digital e Microprocessadores. e atualmen- 
te trabalha na drea de microcomputadores para o Citybank. 
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PC 2001: o 16 bits mais 
compative / com o mercado 




COMP A T/VCL COM O IBM PC 

0 PC200 1 e o mats compteto e versa til microcomputador brasileiro de 1 6 bits, rea/mente compativel. em hardware e software, com 
o PC da IBM, o micro que vendeu mats de 600.000 umdades em 2 anos nos Estados Unidos 

O MA/OR NUMERO DE PROGRAMAS DO MERCADO 

Sao mats de 50 000 titulos. com tecno/ogia e prego nacionais. que mcluem gerenciamento de bancos de dados, apbeativos 
comerciais. financeiros e cientificos 

MODULAR E EXPANSIVEL 

Adicionando penftneos o PC200I cresce. executando desde tarefas rotmeiras are controles admimstrativos e de processes mats 
sofisticados. atuando como concentrador de informaedes. terminal mtehgente ou descentrah/ador de sistemas 

A L GUNS DADOS TECNICOS 

Processodor Intel 8088 de 1 6 tuts. 5 MHs memdna ROM de 8 at# 40KB c memOna RAM de 64 a 5 12KB. emeo conetores de 
expansao de fungdes: monitores de video em fdsforo verde ou pobcromaticos. interface de atd 1 6 terminals para multiusu&nos. sao 
a/guns dos deta/hes do pequeno micro que trouxe ao Brasil a versa tihdade de um grande sistema. /a testado e aprovado por grandes 
empresas no Brasil 



SUPORTE LINK 



O PC2001 e distnbukfo como LINK 727 pela Link Tecnofogia. a pnmeira empresa brasileira de desenvo/vimento. que reune marketing 
e tecnofogia no fomeamento de produtos e suporte sem similares no mercado Isto signified o melhor suporte ao usuano. e arnda 
pronto entrega. garantia de um ano. tremamento. assistencia teenrea efetuoda no chente. o fweco 
mats acessivel do mercado. e uma rede quahficada de revendedores aw 



SAO PAULO Ad Data 282 0562 • Art e Imagem 542 0588 • Execptan 
284 0085 • /marts 881 0200 e 533 2 1 1 1 • Micrvshop 853 928 • 
Sacco 8 1 5 536 7. 814 0598 e 853 5520 • SO 289 0099 • Sennmec 
222 1511 • Tiger 212 9522 SOROCABA MSM 33 05! 1 RIO DE 
JANEIRO Micro's 252 4232 • SCI 294 9292. RECIFE Microshop 326 1525 




microtec 



sistemas industria e comercio Itda 



SHIMIZU. T., Procestamento de 
Dados, Editors Atlas. 



Este livro procura a tender oxo- 
tomente A necessidade de levor so* 
estudantes o que A o computedor 
e quail os principals conceitos re- 
lacionados ao uso dessa mlquina. 
em um nivel aceitAvel para estu- 
dantes, tAcnicos. profissionais ou 
gerentes em cuja Area de forma- 
c5o prolissional o Anfase principal 
nffo toja a MatemAtice £ um livro 
voltado pnncipalmento para os 
cursos profissionalizentes e de 2° 
grau. n4o tcndo como fim pnmei- 
ro a formagSo de programadores 
ou anal i stas de sistemas de proces- 
samento de dados. Sua finalidade 
A a de set um prA-requisito para 
esses cursos. 

Exemplos rotmciros. de fAcil 
assimilagSo, quase sempre acorn 
panhados de ilustracfies elementa- 
res. aparecem ao I on go de todo o 
texto para familiarizar o estudan- 
te com as aplicacdes dos compu- 
tadores e para remover a idAia 
generalizada de quo esses equipa- 
mentos sAo por demais sofisnca 
dos para serem entendidos e usa- 
dos pci a maior parte das pessoas 




LINGUAGEM 

BASIC 



VICTOR MRSHAWKA 




MIRSHAWKA. V.. Linguagem 
BASIC, Livrana Nobel. 



Lmguogem BASIC traz mlor- 
macOes e conceitos computacio- 
nais com a finalidade de dar maior 
embasamento aos imciantes, pos- 
sibilitando-lbes conhecer melhor o 
mundo dos microcompu tadores 
pessoais nacionais. A obra parte 
de conceitos e explicagdes bAsicas 



de como funciona um computa- 
dor pessoal atA chegar as mstru- 
Cfles de como operar, editar e 
controlar programas em BASIC. 

O conteudo dos de/ capital os 
esta assim distnbufdo: Funda- 
mentos da Computacfo. Proces- 
samento Interativo; IntrodugJo ao 
BASIC; Valores e VariAveis; En- 
trada e Saida; Controle de Pro- 
grama. Sub-rotmas. Mampulagio 
de Coniuntos ou Tabelas; Manipu- 
laclo de Strings e Aspect os mats 
Avangados do BASIC. A parte 
final apresenta problemas a serem 
resolvidos pelo prdpno leitor, 
olAm de um glossAno completo 



MOREIRA, J. A.. Bnncando com 
o computador. Editor* Campus. 

Esta obra. fruto das observa- 
nces do autor em safa de aula, no 
trabalho e em converses com ou- 
tros professional*, vem comptetar 
seu primeiro livro "Crianga tarn- 
bAm fa/ programas". tambAm edi- 
tado pel a Editora Campus. Desti- 
nado ao publico infanto-juvenil, 
que. cada v«z mais interessado em 
computacio. dispde de pouquis- 
simas opcdes de teitura, o texto 




vem preenclter uma important* la- 
cuna na bibliografia sobre o assun- 
to. 

A abordagem A bast ante sim* 
pies, a linguagem clara e acessivel 
e as ilustracdes atraentes, facili- 
tando a aprendi/agem das nocdei 
bAsicas sobre a histdru do com- 
pu tador, seus componentes e seu 
funcionamento. 



SEJA PILOTO OU MECANICO 

DE AVIOES 

OU HELICOPTEROS 







err o 



Em MICRO SISTEMAS nP 29. pigina 29. a listagcm 
Copsys - com o intuito dc facilitar a Icitura - 
aprcsentou cspa^os em branco dcsncccssanos, que 
causarn problema na hora dc rodar o ulilitario. Sendo 
assim, voce deve compactar. ou seja. suprimir todos os 
espai^>sem branco da linha 5000 a linha 5530. 

Em MICRO SISTEMAS nP 30, na matdria I’d cotdo de 
hardware para os Sinclair, a figura 1 1 (pagina 39) foi 
editada com alguns erros. A figura correta 6 a que 
se segue: 




Figura II da materia Paco t do de hardware para os Sinclair 
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No Brasil de hoje, nenhuma empresa 
pode perder a oportunidade de mostrar yA 

suas novas ideias. novos equipamentos 
e servicos no maior centro econdmico do 
Pais: Sdo Paulo. 

O caminho esta aberto para voce na 
1 1? FUSE, de 20 a 24 de junho. Alias, essa e a 
epoca mais propicia para investir e acompanhar 
as atuais conquistas desse mercado. 

Essa Feira foi cuidadosamente planejada para 
ser o mais lucrativo encontro entre a oferta e a 
procura. reunindo milhares de diretores. gerentes. 
empresarios do Brasil e do exterior, que estarao 
presentes para conhecer e fechar negocios 
que proporcionem aumento de qualidade e redupao de 
custos operacionais. 

No Par que Anhembi voce conhecera as ultimas con- 
quistas na area de iniormatica. telecomunica^oes. moveis 
e instalacoes. brindes. consultoria e assessoria. entre outros. 

Para quem quer fechar negocios de milhoes. um aviso: 
esta na hora de reservar o seu 
estande e garantir o lugar que 
sua empresa merece. 

Procossamonto do dados 

• Arquivo, classifica- 

gao e microfilmagem ' 

•Instalagdoe 

mobiliario • Maquinas hJ® 

de ©screvor. do calcular, 

decontabilidado.de J 

procossamonto de 
dinheiro e cheques 

• Acessorios e materials 

• Copias. impressao. aca- 
bamento • endorocamonto 

• Maquinas graiicas e materials 

• Controles visuais e relogios 

• Seguranga e saude no trabalho 

• Artigos de papelaria. desenho e I 1 '• 1 

escrita • Consultoria e Assessoria 

• Services em geral • Publicagoes 

• Ensino e Pesquisa • Ban cos e 
Financeiras. 



1 1? Feira Intornacional do Utensilios e Servicos do Escritorio. 

Horario: das 9 as 18 horas 

Patrocinio: Febraban • Federagao Brasileira das Associates do Bancos 
Fenaban - Federagao Nacional do Bancos 
Promogdo: Alcantara Machado Feiras o Promogdes Ltda. 

Rua BrasUio Machado. 29 • Sdo Paulo. SP - CEP 01230 - Tolofonos: 828-91 11 o 67-1323 - Tolox (01 1 ) 22398 AMCE BR 

ttZtttXSttSSS? V.lculoollcial: .KMJ 








Tres rotinas, tres apresentaqdes diferentes, e todas para programas que 
rod am na familia TRS-80. Mostre que seu programa e bom desde o comeg o 



Seu programa merece 
uma boa apresentacao 

Eduardo Hauff 



O programa a seguir 6 composto de tres rotinas que de- 
senham tres figuras em perspectiva para serem utili- 
zadas em apresentai;6es ou inicializa<?5es de progra- 
mas em BASIC, para todos os micros compativeis 
com o TRS-80. 

Nas rotinas 1 e 3, o titulo a ser inserido no desenho devera 
conter no maximo 23 caractercs (linhas 120 e 400) a partir 
da posiijao P (linhas 1 10 e 410). Ja na rotina 2, esta limita^fo 
se amplia para 64 caracteres (linha 340). 

0 programa propriamente dito devera ser colocado apos 



as linhas 200 para a rotina 1 . 350 para a rotina 2 e 480 para a 
rotina 3. Todas estas rotinas utilizam-se da fun<;ao SET. cuja 
relativa lentidSo e aqui valonzada pelos efeitos graficos que 
produz. 



Eduardo Hauff 6 industrial e dirigente de empresa de const rugao civil. 
Desenvolve programas para a linha TRS-80 desde 1980. dedicando-se 
principalmente a area educacional. 



Apresenta^oes para programas 



] Q < *********»»**»**»**»»******»*«••*»**•»***•»*« 
20 ' * 

30 ' * APRESENTACOES PARA PROGRAMAS * 

40 ' * * 

50 ' * (C) - EDUARDO HAUFF - 1984 * 

60 * * 

70 

80 ’ 

90 ' APRESENTACAO 1 

100 ' 

110 CLS:X=37:Y=18:M=32:P=467 

120 A$ = " * * TITULO • *" :BS=CHR$( 2 1 5 ) : FOR 

T= 1T07 

130 ' TITULO: DE 467 a 489 - CHR$(215) = 

23 ES PACOS 

140 PR I NT@P , AS ; : FORZ= 1 TOM+ 1 6 : SET l X , Y ) :X=X+1 : NEXT 
150 PR I NT@P , BS ; : FORZ = 1 TOM-26 : SET ( X , Y ) :Y=Y-1 : NEXT 
160 PRI NT@P , AS ; : FOR7, = ! TOM+ 1 6 : SET ( X , Y ) :X=X-1 : NEXT 
170 PRINT@P , BS ; : FORZ= 1 TOM-26 : SET ( X , Y ) :Y=Y-1 : NEXT 
180 PRINT@P,A$; :M=M+4:X=X-2:Y=Y-2: NEXT 
190 PRINT<3>984 , "DIGITE (ENTER)”; 

200 I $ = INKEYS : I FI $= ” "THEN200 
210 * 

220 ' APRESENTACAO 2 

230 ’ 

240 CLS : FORS= 1 T04 : X = 5 4 : Y = 2 2 : M= 4 : FORT= 1 T06 
250 FORZ= 1 TOM+ 1 3 : SET ( X , Y ) :X=X+1 : NEXT 



/bO FORZ= 1 TOM- 4 : SET ( X , Y ) :Y = Y+1 : NEXT 
270 FORZ= 1 TOM+ 1 3:SET(X,Y) :X=X-1 : NEXT 
280 FORZ= 1 TOM- 4 : SET( X , Y ) :Y = Y-1 : NEXT 
290 I FS= 1 THENM=M+2 :X=X-4 :Y=Y-4 
300 IFS=2THENM=M+2 :X=X-4:Y=Y+2 
310 IFS=3THENM=M+2:X=X+2:Y=Y+2 
320 I FS = 4THENM = M + 2 :X = X+2:Y=Y-4 

330 NEXTT , S : F0RZ=54T07 1 : RESET ( Z, 22) : RESET ( Z ,23): 
NEXT 

340 PRINT@469,”* * TITULO * : PRINT@985 , 

"DIGITE ( ENTER 1"; 

350 I$= INKEYS : I FIS*" "THEN 3 50 
360 ‘ 

370 ' APRESENTACAO 3 

380 ' 

390 AS= " * * TITULO * * " : B5=CHR$ ( 2 1 5 ) 

400 ' TITULO: DE 469 a 491 - CHRS(2!5) = 

23 ES PACOS 

410 CLS :X=33:Y=12 :M=39:P=469: FORF= 1 T06 
4 20 PRINT@P,A$; : FORZ = 1 TOM+ 1 6 : SET ( X , Y ) :X = X+1 : NEXT 
430 PRINT@P,B$; : FORZ= 1 TOM-26 : SET ( X , Y ) :Y=Y+1 ; NEXT 
440 PRINT@P, AS ; : FORZ= 1 TOM+ 1 6 : SET ( X , Y ) :X=X-1 : NEXT 
450 PRINT@P,B$; : FORZ= 1 TOM-26 : SET ( X , Y ) :Y = Y-1 : NEXT 
460 PRINT^P , AS ; :M=M+2:X=X+1 :Y=Y+1 : NEXT 
470 PRINT4*988, "DIGITE (ENTER)"; 

480 I S= INKEYS: IFI $= " "THEN4 80ELSE 1 10 

m 
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NOVO CP 300 PROLOGICA. 




0 pequeno 



Compativel com 
programas em fita 
cassete ou em disco 



Pode ser ligado ao saniparelho de 1 
mesma forma que no terminal de video 
de uma grande empresa 
Com o CP 300 voce pode 
fazer conexoes telefomcas 
^ para coleta de dados. 
rm se utilizar f, V m i 
/ m de uma ImHI 
mpressora 

e ainda dispor de todos 
os programas existentes 
para o CP 500 ou o 
TRS-80 americano E o que 6 melhor 
voce estate apto a operar qualquer 
outro sistema de microcomputador 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual. 

CP 300 Proldgica 

0s oulros nao aaB PROLOG) 
azem o que ele faz, m*cn>computac 

pelo prego que ■i’ 

ele cobra. ■■ ,,.c* »in « 



Agora, na hora de escolher entre urn 
microcomputador pessoal simples, de tecil 
manejo e urn sofisticado microcomputador 
profissional. voce pode ficar com os dois 
Porque chegou o novo CP 300 Prologica 
0 novo CP 300 tern prego de 
,T crocomputador pequeno. Mas memoria vM 
de microcomputador grande 

Ele ja nasceu com 64 y 
^ kbytes de membra * 
interna com 

Possibilidade de Permit 
expansao de memb- 
ria externa para ate 
r quase 1 megabyle 
E tern urn teclado profissional, 
que da ao CP 300 uma versatilidade incrivel. 

Ele pode ser utilizado com programas de 
fita cassete. da mesma maneira que com 
programas em disco Miliu m 

O unico na sua faixa que j£ 
nasce com 64 kbytes de memoria, 



Pode ser ligado 
a um televisor comum 
ou a um sofisticado 
terminal de video. 



Pode ser ^ 
acoplado a uma 
impressora 
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Solicite 
demonstrac^o 
nos principals 
magazines. 








(Pre$ o su/eito a alforo^ao). hhodo 6 ABICOMP 




Dnkette, 



Alto reto/ufOO 



Interface de impteuora into r\ 



A Microdigital apresenta 
o novo TK 2000 color. 

Que tal um micro de alto performance, que traz as principals caracteristicas 
dos equipamentos mais sofisticados e que nao exige de voce um grande 
investimento inicial?E que tal um micro que cresce de acordo com as suas 
necessidades? Sao estos as vantagens que vao fazer do novfssimo 
TK 2000 Color um dos maiores sucessos no setor. 

Veja: e/e tern 64K de memoria RAM e 16K de memoria ROM, teclado profissional 
tipo maquina de escrever, recebe diskette e impressora com interface ja contido, 
trabalha em cores, oferece alta resoluqao grafica e so m. 

Peqa uma demonstraqao. Nunca tanto foi Ihe oferecido por tao pouco. 

Grande quantidade de software disponivel (entre eles: diversos aplicativos 
comerciais e jogos a cores de alta resoluqao grafica). 

Eie tern tudo que um 
micro deve ter.Menos oprego. 
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